Shell Programming and Scripting

$ cat infile
[s-series:/engg/components/arm/codecs/speech/amrnb]
[s-series:/engg/components/labels/arm/codecs/speech/amrwb]
[s-series:/engg/components/arm/codecs/speech/amrwb]
[s-series:/engg/components/labels/arm/codecs/audio/ac3dec]
skjoshi = rw
karun = r
ee205564 = rw
$ cat script.pl
use strict;
use warnings;
use autodie;

@ARGV == 1 or die "Usage: perl $0 input-file\n";
open my $fh, "<", $ARGV[0];
my $prev_line;

while ( <$fh> ) {
    chomp;
    if ( $. == 1 || /^\[.*\]$/ && $prev_line =~ /^\[.*\]$/ ) {
        $prev_line = $_;
        next;
    }
    print $prev_line, "\n";
    $prev_line = $_;
}

print $prev_line, "\n";

close $fh;
$ perl script.pl infile
[s-series:/engg/components/labels/arm/codecs/audio/ac3dec]
skjoshi = rw
karun = r
ee205564 = rw