use Modern::Perl;
use Data::Dumper;

my $text = '%MYBOARD{project1|nameofproject1 remarks="Good,Verygood,bext,excellent" grade="7" teacher="Priyanka"}%';

my %data = $text =~/ ([^=]+)="([^"]+)/g;

say Dumper(\%data);