$sk =~ s/^[.0-9]+$/~$&/;
for (;;) {
last unless $sk =~
- s/^[^. ]*\b(?:chiark|greenend|news|newsfeed|nntp|peer|feed|in|out)\b[^.]*\.//;
+ s/^[^. ]*\b(?:chiark|greenend|news|newsfeed|nntp|peer|feeds?|feeder|in|out)\b[^.]*\.//;
$sk .= " $&";
}
print STDERR "$site => $sk\n";