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

##</code><code>##

#! /usr/bin/perl
 
my ($username,$userid) = @ARGV;
undef @ARGV;
my @phonebook = (<>);
 
@phonebook = grep /\b$username\b/ , @phonebook;
@phonebook = grep /\b$userid\b/   , @phonebook;
 
print foreach(@phonebook);

##</code><code>##

cat phonebook.txt | match.pl Jon 1

##</code><code>##

Jon:1:0123456789