use Regexp::Common qw /URI/;
$text =~ s/$RE{URI}{HTTP}/ /sg;