igor@58: while(<>) {
igor@58:     s/\@\S*//;
igor@58:     s/;/,/g;
igor@58:     my ($word, $notes) = split(/\s+/, $_, 2);
igor@58:     if ($notes) {
igor@58:         print $word,"   ;   ", $notes;
igor@58:     }
igor@58: }