{{category Perl}}
----
 #! /usr/local/bin/perl
 
 die "arg !" if (@ARGV < 1);
 
 while (<>) {
     s/^\s*#[^!]*\n//; # Shebangでない、行頭から始まるコメント、または空白の後に記述されているコメント。
     s/(\;)(\s*#.*)(\n)/$1$3/; # 意味のあるPerl文の後ろに記述されているコメント。
     print;
 }