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