if($content =~ m/<li id=\"movies\"><a href=\"(.*?)\" title=\"Movies\">Movies<\/a><\/li>/i)
{
        my $movie = $1;
        $m->get($movie);
        my $content_1 = $m->content;
        if($content_1 =~ m/<h3><a href=\"(.*?)\" title=\"\">Browse All<\/a><\/h3>/i)
        {
                my $movie_1 = $1;
                $movie_1 \n";
                $m->get($movie_1)||die ("\nCan't Get the Browse URL\n");
                my $content_2 = $m->content;
                if($content_2 =~ m/<li><a href=\"(.*?)\">Rent<\/a><\/li>/i)
                {
                        my $movie_2 = $1;
                        $movie_2=~ s/&amp;/&/g;
                        $m->get($movie_2)||die("\nCant Get The Rent URL\n");
                        $content_3 = $m->content;
                 }       
        
                }
                else
                {
                        print "Not Matched Rent URL\n";
                }
        }
        else
                        {
                print "\nSorry Not Matched Browse All\n";
        }}
else
{
        print "\nNot matched Movie page\n";
}