#!/usr/bin/perl

while($x=<DATA>){

if ($x =~ /^\[Note\](.+)$/){

    $var = $1; #store in a variable
    print $var;

}

}


__DATA__
[Note]
note_values,notes_values2
[Book]
novels,magazines
[Note]
note_values,notes_values3