Select Code to Download

use strict;
use warnings;
...
my @matches = $text =~ /([a-zA-Z0-9]+\s+[z]{15}\s+[a-z0-9]+)/g;

print "string: $_!\n" for @matches;

string: test1 zzzzzzzzzzzzzzz test2!
string: test5 zzzzzzzzzzzzzzz test6!
string: test7 zzzzzzzzzzzzzzz test8!

...
my @cap = $text =~ /([a-zA-Z0-9]+)\s+[z]{15}\s+([a-z0-9]+)/g;
...
    print "string: $cap[0] ... $cap[1]\n";
    splice @cap, 0, 2;
}

string: test1 ... test2
string: test5 ... test6
string: test7 ... test8

    print "string: $1 ... $2\n";