Select Code to Download

use strict;
use warnings;
...
    
    print "Found $1 in '$str' at index $cpos. Overall match started at
+ $mpos\n";
}

Found 1 in '1 2 3' at index 0. Overall match started at 0
Found 3 in ' a3 b2 c1' at index 2. Overall match started at 1