Select Code to Download

use strict;
use warnings;
...
$name = "SMITH JONES";
@temp = split(/(-| )/,$name);
print Data::Dumper::Dumper(\@temp);

$VAR1 = [
          'SMITH',
...
          ' ',
          'JONES'
        ];

my @temp = split(/(?:-| )/,$name);