my @x = split defined($split_pattern)?$split_pattern:' ', $line;