my $str = 'xbaaaaaa' . ('_' x 20) . 'bcccccccccc';
my $start = $str =~ /a+/ ? $+[0] : 0;
my $end = $str =~ /b/ ? $-[0] : 0;

my $ext = substr $str, $start, $end - $start;
$, = " | "; $\ = "\n";
print $start, $end, $ext;