Select Code to Download

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

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

say Dumper(\%data);

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