#!perl
use strict;
use warnings;

open($my fh, "<", $infile) or die "Could not open $infile because $!\n";

while(<$fh>){
    
    next if /^<id:>|^[A-Za-z]/;
    print;
}