my($host, $port) = ( $ENV{"http_proxy"} =~ /^(\S+)\:(\d+)$/ );

##</code><code>##

if( $ENV{"http_proxy"} =~ /^(\S+)\:(\d+)$/ )
{
  ($host, $port) = ($1, $2);
}