#! /usr/bin/env perl

BEGIN { my $prev }
($_ = $prev) =~ s|^( *)(.*)$|"$1" . '=' x length($2)|e
    if m|==========|;
$prev = $_;