#!/usr/bin/perl
use strict;
use warnings;

$_ = "foobar1";

if (/o(.*)a/) {
	for my $i (0..$#+) {
		print substr($_, $-[$i], $+[$i] - $-[$i]), "\n";
	}
}


OUTPUT

C:\perlp>perl t1.pl
ooba
ob

C:\perlp>