use strict; use warnings; for my $title () { chomp $title; # --- patch start # nodelet names don't end always on "nodelet" my $about_title = "About The $title Nodelet"; $about_title =~ s/Nodelet Nodelet$/Nodelet/i; # fix inconsistent naming convention my $about = qq(?); # --- patch end print qq(
  • Doc for $title\n) } __DATA__ Notifications Chatterbox Other Users What Links Here Sections Information Find Nodes Leftovers Voting Booth Personal Nodelet Function Nodelet Keyword Nodelet CPAN nodelet Node Status Node navigator Nodelet Nodelet Daily Best Weekly Best Monthly Best Tick tock Domain Nodelet Free Nodelet Settings Nodelet Log In Notices Slashdot nodelet HackerNews nodelet