Select Code to Download

#!/usr/bin/perl
while (<>) {
  chomp;
  print( ( $. % 2 ? $_ : scalar reverse $_ ), "\n" );
}