$stitle=$response->title();
        $page=$response->content();
        $page=~s/\n/ /gi;
        $page=~s/\r/ /gi;
        $page=~s/\c/ /gi;
        $page=~s/<script.*\/script>//gi;
        $page=~s/<style.*\/style>//gi;
        while($page=~/  /){
            $page=~s/  / /gi;