if ($line =~ /^0.{9}        
(\t[0-9]{1,20}) etc. etc. etc.