Select Code to Download

use warnings;
use strict;
...
while ( $string =~ m{( (??{getone}) \s+ (??{gettwo}) )}xg ) {
    print "<$1>\n";
}