Select Code to Download

my $str = 'xbaaaaaa' . ('_' x 20) . 'bcccccccccc';
my $start = $str =~ /a+/ ? $+[0] : 0;
...
my $ext = substr $str, $start, $end - $start;
$, = " | "; $\ = "\n";
print $start, $end, $ext;

my $str = 'xbaaaaaa' . ('_' x 20) . 'bcccccccccc';
$str =~ /(?!)/g;   # A match that always fails, resetting pos()
...
my $ext = substr $str, $start, $end - $start;
$, = " | "; $\ = "\n";
print $start, $end, $ext;