while (<$IN>) {
  if (!/;\s+/) {
  $text .= $_;
  }
}
...
$text =~ s{\n{2,}}{\n}gm;$