for (@list){
            if ($list[$count]=~ m!page.cfm!iog){
                $list[$count] =~ s/<img[^>]*>//iog;
                $list[$count] =~ s/\r\n//iog;
                $list[$count] =~ s!</?t(r|d|able)?[^>]*>!!iog;
                $list[$count]=~ m!(<a.+href.+>)(.+</a>)!iog;
                print "Count is: $count\n";
                &add_it( $1, $2 );
                }
            $count++;
            };