text file:
1|paul
2|simon
etc

##</code><code>##

print "Name:\n";
$file= <stdin>;

open (FH, "names.txt") or die "$!";
while (<FH>) {
             if (m/\|$file$/) { #naturally this does not work
       print "$num_entry\n";
}