Select Code to Download

&&  $part !~ m{    # Time or partial time (or period):
        ^(?:|P)T [012][0-9] (?:| :?[0-5][0-9] (?:| :?[0-5][0-9] ) )
        (?:| [.,][0-9]+ )$
    }x

&&  $part !~ m{    # Time or partial time (or period):
        ^(?:|P)T [012]\d (?:| :?[0-5]\d (?:| :?[0-5]\d ) )
        (?:| [.,]\d+ )$
    }x