my $test = q|\AFZ\BJK \*\AFZ...*\ |;
my @comments;
$test =~ s/(\\\*.*?\*\\)/ push @comments, $1; '%%comment%%' /eg;
$test =~ s/\\//g;
$test =~ s/%%comment%%/ shift @comments /eg;
print $test;