my @fields  = defined $pattern? split $pattern, $line : split ' ', $line;