7 lines
126 B
Perl
7 lines
126 B
Perl
#! /usr/bin/perl
|
|
|
|
BEGIN { my $prev }
|
|
($_ = $prev) =~ s|^( *)(.*)$|"$1" . '=' x length($2)|e
|
|
if m|==========|;
|
|
$prev = $_;
|