#!perl -ln -i.bak

use strict;
use warnings;

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