RegEx probléma

Sziasztok,

Van egy text file-om, benne soronként stringek.
Szeretném azokat a sorokat törölni, melyek tartalmaznak számot (1 vagy többet) és a hosszuk 5 karakter.

Ez a parancs valamiért nem jó. Tudtok ebben segíteni?:

perl -ne 'print if /^(?=.*\d).{5}$/d' mytextfile.txt >mytextfile_removed_lines_contains_digits.txt

Az ilyen tartalmú sorokat szeretném törölni:

$$$x4
$$008
$$123
$$20a
$$221
$$3tV
$$4$$
$$777
....

Köszönöm.