#!/opt/local/bin/perl -w

$file = "trace.csv";

$file1 = "rgextract.txt";

open (FH, "< $file") || die ("Cannot open file!");

while ($line = <FH>) {

        $line2 = substr $line, 28, 3;

        print "$line2\n";

        if ($line2 =~ /d++/) {

                open (FH2,">>$file1") || die ("Cannot open file!");

                print FH2 "$line\n";

                close (FH2);

}
}

close (FH);