sounds like you know your regexes. Thinking about the whole thing again all I need is the code below because \w does not match spaces so will stop at the first space.

if ($line =~ m/^update\ (\w*)/){
  print $1."\n";
}
[download]