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