Select Code to Download

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

my $ext = substr $str, $start, $start - $end;
print $ext;