Select Code to Download

my $split_pattern = ' ';

my @x = split $split_pattern, $line;

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

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