use strict;
use warnings;
use Data::Dumper;

my $str = "I want a split pattern";
my $pattern = $ARGV[0] // ' ';

my @pieces = split /$pattern/, $str;
print Dumper \@pieces;