Select Code to Download

use warnings;
use strict;
...
    my $len = length($1);
    print join " " => $1, $beg, $beg + ($len -1), $/; # updated
}

pecbcbccrl 6 15 
peeeerl 22 28 
pl 34 35 
PeRL 41 44