while (<>) {

  if ($_ =~ /(.*) ;.*/) {
    print $file_out_h "$1\n";
  } elsif ($_ =~ /.*M109 S190.*/) {
	# Do nothing, omit that command.
  } else {
    print $file_out_h "$_";
  }
}