Thank you very much for all the good advices gentlemen. Guess I owe you all a big apology since I have failed to reply. I was in the hospital due to a small accident and only last night I have been discharged. Now back at feet :)

I tried the following code but the program wont give any output nor any errors. Please can one of you correct this code for me? Please gentlemen Im a beginner who is trying to understand the whole concept of regexes more specifically with files, So be gentle.

my $SYS_HOME = $ENV{'SYSTEM_HOME'};
my $GD_FILE = $SYS_HOME."/GD.log";
my $FH;
my @DUMP;
open ($FH, '<', $GD_FILE) || die "Cant open : $!";
while (my $line = $FH) {
    if ($line =~ /~\|(TOTAL.*)/){
        #my $tmp = $1;
        push @DUMP, $1;
            foreach (@DUMP) {
            print "$_\n";
        }
    }
}
[download]

Many thanks in advance! /Bindo