open( INFILE, "<$filename" )      || die "$!\n";
open( OUTFILE, ">>dataload.errs" ) || die "$!\n";

while ( $line = <INFILE> ) {
    if ( "***M" eq substr $line => 0, 4 ) {		
	print OUTFILE $line;
    }

    if ( "!!!" eq substr $line => 0, 3 ) {
	print OUTFILE $line;
    }

    if ( "@@@" eq substr $line => 0, 3 ) {
	print OUTFILE $line;
    }
}

close( INFILE );
close( OUTFILE );