Statement Perl

  1. Home
  2. Perl
  3. Statement
  4. Controlling Loop Flow
#!/usr/bin/perl
use warnings;
use strict;
my $stopnow = 0;
until ($stopnow) {
    $_ = ;
    chomp;
    if ($_) {
        my $sdrawkcab = reverse $_;
        print "$sdrawkcab\n";
    } else {
        $stopnow = 1;
    }
}
print "!enod llA\n";