Shell Programming and Scripting

$ 
$ cat input.txt
DB21034E The command was processed as an SQL statement because it was not a
valid Command Line Processor command. During SQL processing it returned:   

SQL0204N "ITUAM.VW_TT_VALUES" is an undefined name. 
SQLSTATE=42704                                      
blah blah blah....                                  

DB21034E The command was processed as an SQL statement because it was not a
valid Command Line Processor command. During SQL processing it returned:   

SQL0204N "ITUAM.VW_TT_VALUES" is an undefined name. 
SQLSTATE=42704                                      
blah blah blah....                                  

DB21034E The command was processed as an SQL statement because it was not a
valid Command Line Processor command. During SQL processing it returned:

SQL3196N The input file was not found
blah blah...
......
.... [The no. of lines varies for this error description]
..
blah blah blah....

DB21034E The command was processed as an SQL statement because it was not a
valid Command Line Processor command. During SQL processing it returned: success
$
$
$ perl -ne 'BEGIN {$/=""} while (/((SQL\d{4}[A-Z]).*)/sg) {$count{$2.":".$1}++}
> END {foreach $key (keys %count){
>        $x = (split(/:/, $key))[0];
>        print "$x occurred $count{$key} times\n[description] $key";
>      }}' input.txt
SQL3196N occurred 1 times
[description] SQL3196N:SQL3196N The input file was not found
blah blah...
......
.... [The no. of lines varies for this error description]
..
blah blah blah....

SQL0204N occurred 2 times
[description] SQL0204N:SQL0204N "ITUAM.VW_TT_VALUES" is an undefined name.
SQLSTATE=42704
blah blah blah....

$
$

use strict;
use Data::Dumper;

open (FILE, 'input.txt') or die "input.txt : $!\n";
my @wanted = ();
my $in_section = 0;          # this is a flag that indicates start of 'data-store'
                                        # '0' indicates 'do not-store-data'
                                        # '1' indicates 'store-data'
my $line = '';
while (<FILE>) {
    chomp;
    if (/^\s*SQL\d{4}[A-Z].*/i) {           # start 'data-store'
        $line .= "$_\n";
        $in_section = 1;                      # set our flag to one
        next;
    }
    if (/^\s*$/ and $in_section) {         # end the 'data-store'
        $in_section = 0;                     # unset our flag
        push @wanted, $line;
        $line = '';
    }
    $line .= "$_\n" if ($in_section);
}
close FILE;
print Dumper(\@wanted);

awk '$0 ~ /^SQL/{
p=$1;
while ($0 !~ /^ *$/)
{
s=(n=0)? $0:s"\n"$0
getline
};c[p]++;a[p]=s;n=0;s="";next
}END{for(p in a)printf("%s%s%d%s%s%s\n\n",p," occured ",c[p]," times\n","[description] ",a[p])}' input.txt