>perl -wMstrict -le
"my $s1 = 'a\b';
 my $s2 = 'c\\d';
 my $s3 = 'e\\\f';
 my $s4 = 'g\\\\h';
 print $s1, $s2, $s3, $s4;
"
a\bc\de\\fg\\h