#!perl
use warnings;
use strict;

my $one = q{/\d \\ \/ \\/ /
};
my $two = <<'--snip--';
/\d \\ \/ \\/ /
--snip--

print "\$one is `$one'\n\$two is `$two'\n";
__END__

##</code><code>##

$one is `/\d \ \/ \/ /
'
$two is `/\d \\ \/ \\/ /
'