perl -ne "print $_ unless /^\d+[\r\n]*$/" source_file

а так - можно посмотреть, что отрезается (инверсия фильтра):

perl -ne "print $_ if /^\d+[\r\n]*$/" source_file