# Perl, 24 bytes

Includes +2 for `-lp`

Give input on STDIN:

    rev.pl <<< Hello!

`rev.pl`:

    #!/usr/bin/perl -lp
    s%.%s/.?/chop/eg;$`%eg

Surprisingly this does not use the builtin `reverse` operator. That name is just soooo long, all solutions I could think of with `reverse` are at least 1 byte longer.