Splitting a line up

UNIX for Beginners Q & A UNIX for Dummies Questions & Answers
1

9600012301F TF02FT T03FFTF04TF 05T FF06TTTT

I have to split this line up into this

96000123
01F TF
02FT T
03FFTF
04TF
05T FF
06TTTT

Can anyone please Help??

2

#!/usr/local/bin/perl

while (<>) {
print substr($,0,8) . "\n";
print substr($,8,6) . "\n";
print substr($,14,6) . "\n";
print substr($,20,6) . "\n";
print substr($,26,5) . "\n";
print substr($,31,6) . "\n";
print substr($_,37,6) . "\n";
}