#!/usr/bin/perl -w

$target = "M";
open(INPUT, "</etc/passwd");
while(<INPUT>) {
  if(/^([a-zA-Z0-9]+)/) {
    print "Found $1 on line $.\n";
  }
}