Select Code to Download

my @temp = $info{$humangi};

my ($source, $position, $sink) = split(/(\d+)(\w)/, $Variant);

my ($source, $position, $sink) = $Variant =~ /(.*?)(\d+)(\w)/;