"some file" 'another file' yet\ another\ file #### some file another file yet another file #### my $data = SOME STRING; if ($data =~ SOME EXPRESSION) { print "File name: \"$_\"\n"; }
## some file another file yet another file ##
## my $data = SOME STRING; if ($data =~ SOME EXPRESSION) { print "File name: \"$_\"\n"; }