my @a = ();
if ( $foo =~ /^(\d+)\s+(\w+)\s*$/ ) {
	@a = ($1, $2);
}

##</code><code>##

my @a = split (/\s+/, $foo);