Next Hold Space 16

Heading translation

        #!/usr/bin/perl
        while (<>) {
          if (/^(.)\1+$/ && defined($held) && length($_) == length($held)) {
            # It's an underline
            print uc($held);
            undef $held;
          } else {
            print $held if defined $held;
            $held = $_;
          }
        }
        print $held if defined $held;

Next Copyright © 2011 M. J. Dominus