use strict;
use warnings;

my @strings = (
            'points: "_eglErdrm@}}vA|}vAihtB~}vAik{C|}vA}~mHnojBgzlBjy[aktAoeAooo@_l`@wl^y{oA",',
            'levels: "PKLMOKNLP",'
        );

foreach my $string (@strings) { 
    $string =~ s/(points|levels):(.*),$/$2/;
    print $string."\n";;
}


# That outputs:
 "_eglErdrm@}}vA|}vAihtB~}vAik{C|}vA}~mHnojBgzlBjy[aktAoeAooo@_l`@wl^y{oA"
 "PKLMOKNLP"