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