local $\ = "\n";
while(<>) {
    if(/ (Note;.*)/) {
        print $1;
    }
}