#!/usr/local/bin/perl
while(<>){
    if(!/[a-z]\s+/){
        print;
    }
}

