>perl -wMstrict -le
"my $s = 'hostname.ms.com';
 $s =~ s{ [.] .* \z }''xms;
 print qq{'$s'};
"
'hostname'