Select Code to Download

use strict;
use warnings;
...
        print "Matched using $reg: $1\n" if $str =~ $reg;
    }
}

Matched using (x\d{3,}?): x123
Matched using (x\d{3,}?): x123
...
Matched using (x\d{3,}): x123
Matched using (x\d{3}): x123
Matched using (x\d{3}): x123