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);
##</code><code>##

$VAR1 = {
          'grade' => '7',
          'teacher' => 'Priyanka',
          'remarks' => 'Good,Verygood,bext,excellent'
        };