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