$test =~ s/(\\\*.*?\*\\)/ push @comments, $1; '%%comment%%' /egs;
$test =~ s/\\//gs;
$test =~ s/%%comment%%/ shift @comments /egs;