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