#!/usr/bin/perl -w

use strict;

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