(C) 2003, Tim Maher       1-36       www.TeachMePerl.com
Perl as AWK
continued


Print first field if second matches pattern
TAB character (\t) is field separator
  perl -wlnaF'\t' -e '($A,$B)=@F;
       $B =~ /\b98107\b/  and 
           print "$A";' directory
Input
 Torbin Ulrich   98107
 Yeshe Sherpa    98117
Output
 Torbin Ulrich