Skip to content

Instantly share code, notes, and snippets.

@chrismear
Created October 22, 2008 10:11
Show Gist options
  • Save chrismear/18600 to your computer and use it in GitHub Desktop.
Save chrismear/18600 to your computer and use it in GitHub Desktop.
#!/usr/bin/env perl
if ($ARGV[0] =~ /^dave.*(?<!dog)$/) {
print "YES\n";
} else {
print "NO\n";
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment