# call program as so:
# cat mmax2_basedata_file | perl onewordperline.pl > tagger_formatted_file

while (<>) {
  if (m{^<word id=.*>(.*)</word>$}) {
    print "$1\n";
  }
}