fix-title.pl 130 B

123456
  1. #! /usr/bin/env perl
  2. BEGIN { my $prev }
  3. ($_ = $prev) =~ s|^( *)(.*)$|"$1" . '=' x length($2)|e
  4. if m|==========|;
  5. $prev = $_;