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


in reply to Re: pattern match a name from stdin
in thread pattern match a name from stdin

this now works:
if (m/\|\Q$file/) {print $num_entry};
However, if i want the match to occur at at the end i would include an addition $
if (m/\|\Q$file$/) {print $num_entry};
For example if the user entered Sarah it could output Sarah and Sarah-jane. But this second bit of code doesnt seem to work?