Select Code to Download

my $string_old = "<*2>H<2:0>,I<3:0>,<*2>P<4:0:2>";
my $string     = "<*2>P<4:0:2>";
...
#  Matched   2   H<2:0>,I<3:0>,<*2>P   4   0   2
#new regex matches (old one did this too)
#Matched   2   P   4   0   2