Skip to content

Instantly share code, notes, and snippets.

@mythmon

mythmon/test.pl

Created January 28, 2011 18:14
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save mythmon/800676 to your computer and use it in GitHub Desktop.
Save mythmon/800676 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
test.pl
$data = "abacaabf";
@matches = $data =~ /a[^a]/g;
print "@matches\n";
print "$matches[0]\n";
print "$matches[1]\n";
print "$matches[2]\n";
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment