http://www.perlmonks.org?node_id=1000836


in reply to Re^2: Bailing out when testing
in thread Bailing out when testing

If you only want to do this occasionally, why not pipe the output to 'head'?

for(split(" ","tsuJ rehtonA lreP rekcaH")){print reverse . " "}print "\b.\n";