c:\@Work\Perl\monks>perl -wMstrict -le
"my $s = 'A: \\.\COM22';
 print qq{'$s'};
 ;;
 $s = 'B: \\\.\COM22';
 print qq{'$s'};
"
'A: \.\COM22'
'B: \\.\COM22'