#!/usr/bin/perl
# meant to be a pipe to aid in data pipeline building
# example: file * | grep "perl script" | pull '^(\w+)'
# or.....  file * | grep "perl script" | pull '^(.*?):'

$match = shift || die "match what?\n";

while(<STDIN>) {
 chomp;
 if (/$match/i) {
  print $1 . "\n";
 }
}