#!/usr/bin/perl -w
use strict;

while (<DATA>) {
  chomp;
  if (/^(.*?)\s[A-Za-z]+$/) {
    print "Found $1 in $_\n";
  } else {
    warn "Don't know how to handle $_\n";
  };
};