Changing your code to:

perl -wle 'for (0 .. 255) { 
   $delim = chr;
   next if $delim =~ /\w/;
   eval "m${delim}foo$delim;";
   print "Bad: $_ ($delim)" if $@ 
}'
[download]

Makes '.' and ';' pass too. I also have no problem with '_'.