The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

#!perl -ln -i.bak

use strict;
use warnings;

if (/\A( *)print "(#.*?)\\n";\z/)
{
    $_ = "$1$2";
}
print $_;