Select Code to Download

#!/usr/bin/perl -w
#This Program will check to see on how many lines a word
...

    print "Of $totline lines the word '$word' occured on $occ of them.
+\n";
}

@HPAJ=split("", "rekcaH lreP rentonA tsuJ");
print reverse @HPAJ;  #sucky but who cares?