2.7 セミコロン

全ての文の後ろにセミコロンを配置する。

while (my $line = <>) {
  chomp $line;

  if ( $line =~ s{\A (\s*) -- (.*)}{$1#$2}xms ) {
    push @comments, $2;
  }

  print $line;
}