http://qs321.pair.com?node_id=757128

Public Scratchpad

Download, Select Code To D/L

---

Monestry CSS

pre.output {
  color: #006;
  background:#ddf url(http://buzzword.org.uk/2012/output) no-repeat sc
+roll top right;
  padding:0.33em;
  border:1px solid;
  font-size:90%;
  line-height:1.05;
}
pre.output em {
  font-style: italic;
  color: black;
}
pre.output strong {
  font-weight: bolder;
  color: black;
}
[download]

Regexp for WideMind

use 5.010;

my $string = <<'CODE';
if (foo > 1)
{
    bar("Hello World");
    for(var i=0; i<baz(j); i++)
    {
        quux(2);
    }
}
CODE

# Finds "bar", "baz" and "quux", but not "if" or "for".
while ($string =~ m{ (\w+) (?<!if) (?<!for) (?<!switch) \s* \( }xg)
{
    say "found: ", $1
}
[download]