foreach $ttl (@titlez){
#chop($ttl);
($titlea)=split('þ',$ttl);
push @titleb,$titlea if (!$exists{$titlea});
$exists{$titlea}=1;
}

foreach $loctitle (@titleb){
$online++;
}