perl o awk interceptan la cadena cada 10 caracteres en secuencia

¿mientras?(lt;DATAgt;)?{

si?(/gt;(\d )/)?{

$d?=? $1;

$_?=?lt;DATAgt;;

morder;

for?$i(0..length($_)-10 )?{

imprimir?"gt;$d($i)\n",?substr($_,?$i,?10),?"\n";

}

}

}

__DATA__

gt 1

aaaassssdddd

gt；2

hhhhjjjjkkkk