Select Code to Download

use strict;
use warnings;
...

my ($span_s) = $str =~ /(\d\d.*?\d\d)/s;
print "\$span_s -- $span_s\n\n";

@digits -- 12 34 56 78

...

$span_s -- 12c
de34