Help for this page

Select Code to Download

Select or download this
```
text file:
1|paul
2|simon
etc
```

Select or download this

print "Name:\n";
$file= <stdin>;
...
             if (m/\|$file$/) { #naturally this does not work
       print "$num_entry\n";
}