use warnings;
           use strict; my$foo;
         sub z{local$/;    undef
        $/;seek(DATA,       0,0)||
        return 0;$foo=      <DATA>;
        my @foo = reverse split//,
        $foo;return @foo }my$bar;
          for((z".rekcah lreP r",
          "ehtona tsuJ")[325..
              335,350..363])

             {$bar
          .=$_ if$_};
          print$bar||
          print "R2D"
          ,"2 says t"
        ,"his must be "
        ,"in a file in"
        ," order to wo"
        ,"rk properly,"
        ," M"     ,"as"
       ,"ter "    ,"Luke"
        ,"."       ,"\n"
__END__