#!/usr/bin/perl -p # rev - reverse the sequence of characters in input lines # Steve Kinzler, kinzler@cs.indiana.edu, Apr 98 # http://www.cs.indiana.edu/~kinzler/home.html#unixuni chop; $_ = join('', reverse split(//)) . "\n";