foreach ($first,$last) {
        s/^\s+//;
        s/\s+$//;
}
##</code><code>##

if ($last =~ m/\d/g) {
        die "Surname should only contain letters, hyphens and apostrophes!";
}
##</code><code>##

elsif ($last =~ m/(\w+)\s*(\w+)/) {
        $surname = join(' ', $1, $3);
}
##</code><code>##

#!/usr/bin/perl -w

use strict;

my $n = 'Joe De Blogg';
my($name, $surname) = split /\s+/, $n, 2;
print "name: $name surname: $surname\n";