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