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