<p>#!/usr/bin/perl

use warnings;
use strict;

while (<DATA>){
    (my $x = $_) =~ /^\[Note\](\w+)/;
    $x =~ s/[^,]*,//;
    print $x;
}

__DATA__
[Note]note_values,notes_values2
[Book]novels,magazines

##</code><code>##

$ perl tst.pl
notes_values2
magazines
$