use warnings;
use strict;

my $s = '%MYBOARD{project1|nameofproject1 remarks="Good,Verygood,bext,
+excellent" grade="7" teacher="Priyanka"}%';
if ($s =~ / \b teacher = " ([^"]+) " /x) {
    print "$1\n";
}

__END__

Priyanka
[download]

• perlre
• perlretut
• YAPE::Regex::Explain