You can have both:

if ( ($host, $port) = ( $ENV{"http_proxy"} =~ /^(\S+)\:(\d+)$/ ) )
{
    print $host, "/", $port;
}
else
{
    print "warning";
}
[download]