my @parts = split ' ', $str;
my ($ip, $path, $user, $pass, $port) = 
     (@parts[0, 1], map { (split /:/)[-1] } @parts[2,3,4]);