#!/usr/bin/perl




  open IN, "demos.mif";
  open OUT, ">demos.mif.rev";

  while (<IN>) {

  if (/<MText \`(.).+\s(.+)\'>/) {
    #print;
    $firstinitial = $1;
    $lastname= $2;
    #print "\n\n$lastname, $firstinitial.\n\n";
    $out = '    <MText `'.$lastname.', '.$firstinitial.'.\'>'."\n";
    print OUT $out;
  } else {

    print OUT;
  }
}

  close OUT;
  close IN;