foreach (@row)
{
   my ($name, $rest) = /^(.){15}(.*)$/;
   my @data = split( ' ', $rest, 3 );
}