my $input1 ="<span color=\"#231f20\" textOverprint=\"false\">%PN1%</span>";
my $input2 ="<span color=\"#231f20\" textOverprint=\"false\">%DIMMM%%DIMINCH%</span>";

my @matches = $input1 =~ m/%([^%]+)%/g ;
print @matches,"\n";

@matches = $input2 =~ m/%([^%]+)%/g ;
print @matches[0],"___",@matches[1],"\n";