my $split_pattern //= getOpt();

my @x;
unless( defined $split_pattern ) {
    @x = split ' ', $line;
}
else
    @x = split $split_pattern, $line;
}