upsideDown.pl

#!/usr/bin/perl
binmode STDOUT, ":utf8";
use Encode;

my @rev = split '' ,decode_utf8(q|zʎxʍʌnʇsɹbdouɯןʞɾıɥƃɟǝpɔqɐ()'{}|);
my @norm = split '', 'zyxwvutsrqponmlkjihgfedcba)(,}{';
my %h = map {$norm[$_] => $rev[$_]} 0..$#rev;

local $/=undef;   #slurp the whole stdin. you have to quit with ctrl-d or ctrl-c
$_ = <STDIN>;

s/(.)/$h{$1} ? $h{$1} : $1/gex;
print scalar reverse "\n", decode_utf8($_) ,"\n";