hdb$ perl split4.pl
$VAR1 = [
          'I',
          'want',
          'a',
          'split',
          'pattern'
        ];
hdb$ perl split4.pl a
$VAR1 = [
          'I w',
          'nt ',
          ' split p',
          'ttern'
        ];