while(/"(.*?)"/g) {
    $1 =~ s/\c@\[\d+[a-x]//g;
}