http://www.perlmonks.org?node_id=497644


in reply to pattern match a name from stdin

First: You should probably chomp $file.

Secod: if $file contains any metacharacters, they will need to be escaped (see quotemeta).

Third: If you are testing for the presence of a literal sting within another sting you may be better off with index (in which case disregard the use of quotemeta)


They say that time changes things, but you actually have to change them yourself.

—Andy Warhol