Select Code to Download

#!/usr/bin/perl -w
use strict ;
...
foreach @line ($a) {
    print reverse(@line);
}

Please specify a file: noname.pl

...
{ )>nIelif$< = enil$ ym( elihw
;)enil$(esrever ralacs tnirp    
}