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