#!/usr/bin/perl

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

foreach $item (@ARGV) { $string .= " " . $item; }
select STDOUT;

$string =~ s/^\ *//;

print "$string";

for($i = (length($string) - 1); $i > 0; $i--)
{
    print STDOUT substr($string,$i-1,1);
}

print "\n";