@fld = split / /;
if ($_ =~ "regex/);
print "$1 $2, etc";