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