use warnings; use strict;

for ( 32 .. 126 ) {
    my $str = "\\" . chr;
    my $esc = eval "'$str'";
    print "$str => $esc" if $str ne $esc;
}
__END__
\' => '
\\ => \