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 #### About the Free Nodelet About the Settings Nodelet About the XP Nodelet About the Weekly Best Nodelet About the Voting Booth Nodelet About the Tick Tock Nodelet About the Synch Nodelet About the SiteDocClan Nodelet About the Sections Nodelet About the Pmdev Nodelet About the Personal Nodelet About the Pedagogues Nodelet About the Other Users Nodelet About the Nodelet Nodelet About the Node Navigator Nodelet About the Node Status Nodelet About the Monthly Best Nodelet About the Moderation Nodelet About the Leftovers Nodelet About the Keyword Nodelet About the Information Nodelet About the Function Nodelet About the Find Nodes Nodelet About the Everything Developer Nodelet About the Editors Nodelet About the Domain Nodelet About the Daily Best Nodelet About the Chatterbox Nodelet About the Cabalists' Nodelet About the CPAN Nodelet About the CGI::param Nodelet About the Approval Nodelet