Select Code to Download

  /
    ^                  # from the start
...
    ( .* )             #   match zero or more characters
    $                  # .. until we reach end of string
  /x

  perl -wle 'print "ok" if undef =~ /^(([\w\d\-\_]+)[:,]|)(.*)$/'