libxml-libxml-perl/scripts/prints-to-comments.pl

#!perl -ln -i.bak

use strict;
use warnings;

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