for i in 01 02 03 05 06 07
do
awk -F^ '
function trail(txt) { while (substr(txt,length(txt),1)==" ") txt=substr(txt,1,length(txt)-1); return (txt) }
BEGIN { file="IM'"$i"'"}
{ for (i=1;i<NF;i++) printf "H%.2d%s\n",i-1,trail($i) >file""NR
print " " >file""NR } ' REG$i
done

