Select Code to Download

use strict;
use warnings;
...

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

hdb$ perl split4.pl
$VAR1 = [
...
          ' split p',
          'ttern'
        ];