use strict;

for my $i (101 .. 200)
{
    my $a = '\\' . $i;
    my $val = eval qq{"$a"} || $@;
    print "$i = $val\n";
}