##
#! /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);
####
cat phonebook.txt | match.pl Jon 1
####
Jon:1:0123456789