Select Code to Download

$string = 'abcd';
$regex = join '.*?', split //, $string;
...
if($sequence =~ /$regex/s) {
    printf "I found a match, at offset %d and with total length %d\n",
+ $-[0], $+[0]-$-[0];
}