Mindless yobs terrorise OAP's #### for (@list){ if ($list[$count]=~ m!page.cfm!iog){ $list[$count] =~ s/]*>//iog; $list[$count] =~ s/\r\n//iog; $list[$count] =~ s!]*>!!iog; $list[$count]=~ m!()(.+)!iog; print "Count is: $count\n"; &add_it( $1, $2 ); } $count++; };