Hi PerlJam2015, welcome to the Monastery!

You can store the matches in an array:

$_ = 'abcd';
if (my @matches = /(.)(.)/) {
    for my $i (0, 1) {
        print "$i: $matches[$i]\n";
    }
}
[download]