$line =~ /\d+/

Nice variant. In some ways it better matches the spec than my offering, but you got the conditional the wrong way round. You want $line !~ /\d/ methinks (and the + is not necessary, one is all you need to make it fail).