#!/usr/bin/env perl
use strict;
use warnings;
my $iniprod = 'php.ini-production';
my $ininocm = 'php.ini-nocomments';
open my $IN,  '<', $iniprod
   or die "Could not open $iniprod for reading: $!";
my $text;
while (<$IN>) {
   if ($_ !~ /;\s+/) {
      $text .= $_;
   }
}
close $IN
   or die "Error closing $iniprod: $!";
# remove blank lines
$text =~ s{\n{2,}}{\n}gm;
open my $OUT, '>', $ininocm
   or die "Could not open $ininocm for writing: $!";
print $OUT $text;
close $OUT or die "Error closing $ininocm: $!";