Mega Code Archive

 

Categories / Perl / Statement

 

Breaking Out

#!/usr/bin/perl use warnings; use strict; while (<STDIN>) {     chomp;     last unless $_;     my $sdrawkcab = reverse $_;     print "$sdrawkcab\n"; }