E:\blead> perl -e "print q§/\\\./§"
/\\./

##</code><code>##

#!perl
print <<'ENDOFHERE';
/\\\./
ENDOFHERE