100.20 SAD 350694345
250 ADD 369803434
300 360349320
300.1534234 ZOO 353000303
210 3633400340

$filename = 'call.txt';
$output = 'result.txt';
open(FILE, $filename) or die 'Could not open $filename';
foreach $line (<FILE>) {
if ($line !~ /^d{3}.*d* [a-zA-Z]{3}/) {

open (CALL, '>', $output) or die $!;
print CALL $line;
}
}

210 3633400340