#!/usr/bin/perl

#
# .bitchxrc:
#
# /alias reverse exec -out ~/.BitchX/reverse.pl
#

foreach $item (@ARGV) { $string .= " " . $item; }
select STDOUT;
for($i = length($string); $i > 0; $i--)
{
    print STDOUT substr($string,$i-1,1);
}

print "\n";