Select Code to Download

use warnings;
use strict;
...

@matches = $string =~ m/((??{$re}))/g;
print "@matches\n\n"; # xx 55 6 xx