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