You could always split on the whitespace as well...
my ($short_name, $rest) = split(' ', $name);