$_->{$.};s:.?(.)..(.):print(($1..$2)[9,0,15,7]):e


##</code><code>##

$_->[/^(?>(.)?(.)+.*)(?!\1)(??{print(($1..$2)[9,0,15,7])})/]