$ perl -e '@c = reverse <>; for (@c) {$d = reverse $_; print $d}' coderef.pl