2 # -*- eval: (bug-reference-mode 1) -*-
19 if ($c && /====/){xyz;}
21 print "a" . <<EOF . s/he"llo/th'ere/;
25 print <<\EOF1
. s/he"llo/th'ere/;
39 print <<"EOF1" . <<\EOF2 . s/he"llo/th'ere/;
47 print $'; # This should not start a string!
49 print "hello" for /./;
51 $fileType_filesButNot # bug#12373?
52 = join( '|', map { quotemeta($_).'$' } @{$fileType->{filesButNot}} );