Select Code to Download

Jon:1:0123456789
Rob 1 0987654321
Sean 4 075312468
Tom-3-0111 222 333
Colin 3 0222 111 5555

#! /usr/bin/perl
 
...
@phonebook = grep /\b$userid\b/   , @phonebook;
 
print foreach(@phonebook);

cat phonebook.txt | match.pl Jon 1