mconvert

   1 #!/usr/bin/perl
   2
   3 while (<>) {
   4     /Identifier.*"(.*)"/ && print $1, "; 0; ";
   5     /HorizSync ([0-9-]+)/ && print $1, "; ";
   6     /VertRefresh ([0-9-]+)/ && print $1, "\n";
   7 }