Select Code to Download

#!/usr/bin/perl -s
print "usage: highlights where a regexp matches in the input text
...
  eval("s/$re/\e[7m\$sub\e[m/$x;");
  print;
}