Select Code to Download

#!/usr/bin/env perl -l

...
         map pack("C2", /^Patch_(\d+)\.(\d+)/) . $_, @array;

print for @array;

$ perl -E 'my @x = qw{X1.2 X3.4}; say "@$_" for map { [ $_, /X(\d+)\.(
+\d+)/ ] } @x'
X1.2 1 2
X3.4 3 4