# perl script to undo adina's stuff

$/ = "";

while (<>)
{
  s/(em|o)ber/./;
  s/&/\\&/;
  /(.*),\s(.*),\s(\S*)\s(.*)/;
  print "\\ten" if ($3 eq "10-250");
  print "\\movie{$4}{$1}{$2}\n";
  $_ = <>;
  print $_;
}