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