Help for this page
use strict; use warnings; ... $name = "SMITH JONES"; @temp = split(/(-| )/,$name); print Data::Dumper::Dumper(\@temp);
$VAR1 = [ 'SMITH', ... ' ', 'JONES' ];
my @temp = split(/(?:-| )/,$name);
www.com | www.net | www.org
No recent polls found