why don't you throw in a couple of map { $_ }s in there?

$_ = 1234;
$_ = reverse $_;
chop;
$_ = reverse $_;
print
__END__
234
[download]