11 lines
111 B
Perl
11 lines
111 B
Perl
|
#!perl -ln -i.bak
|
||
|
|
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
if (/\A( *)print "(#.*?)\\n";\z/)
|
||
|
|
{
|
||
|
|
$_ = "$1$2";
|
||
|
|
}
|
||
|
|
print $_;
|