Select Code to Download

my @lines = grep { m/ \b (?: 0[1-9] | 1[0-2] ) - (?: 0[1-9] | [12][0-9
+] | 3[01] ) - [0-9]{4} ) (?! [-\w] ) /x } @data;