Select Code to Download

warn "Bad content: $cdstr\n"
    unless ( $cdstr =~ /^(?:[\s\d\p{Punctuation}]|\p{Cyrillic})+$/ );