if (m/\|\Q$file/) {print $num_entry};

##</code><code>##

if (m/\|\Q$file$/) {print $num_entry};