Select Code to Download

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

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