while ($s =~ /(\\.|.)/g) { die if $1 eq "#"}