map{$_ && s/\s.*//} $server,$user,$passwd,$dbconn,$dbuser,$dbpasswd,$shpath;

##</code><code>##

s/\s.*// foreach ($server,$user,$passwd,$dbconn,$dbuser,$dbpasswd);
$shpath =~ s/\s+.*// if $shpath;