use strict;
use warnings;
my $x;
while($x=<DATA>){
    chomp($x);
    if ($x =~ /^\[Note\]/){
    my $find=(split(/\,/,$x))[-1] ;
    print "$find\n";                                                                                                                         
    }

}
__DATA__
[Note]note_values,notes_values2
[Book]novels,magazines
[Note]note_values,notes_values56