fix-title.pl
#! /usr/bin/env perl
BEGIN { my $prev }
($_ = $prev) =~ s|^( *)(.*)$|"$1" . '=' x length($2)|e
if m|==========|;
$prev = $_;
Browse the archive
#! /usr/bin/env perl
BEGIN { my $prev }
($_ = $prev) =~ s|^( *)(.*)$|"$1" . '=' x length($2)|e
if m|==========|;
$prev = $_;