Select Code to Download

while ( <> ) {
    m{
...
        date:\d{2}/\d{2}/\d{2}
    }x or print "Does not match on line $..\n";
}