#!/usr/bin/perl

while($_=<DATA>){
$x =~ /^\[Note\](\w+)/;
print $x;

}

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