$Machine = "\\\\$Machine";
$Machine =~ s/^\\{2,}/\\\\/;