How do you replace strings in URLs in perl?

use URI::Split qw(uri_split uri_join);

$lhost='readytips.blogspot.in';

my $uri='http://www.blogspot.in/2013/07/how-do-you-extract-string-between-two.html';
my ($protocol, $host, $path, $query, $fragment) = uri_split($uri);
my $uri = uri_join($protocol, $lhost, $path, $query, $fragment);

print $uri;