Help for this page

Select Code to Download


  1. or download this
    "
(^\#!/usr/bin/perl[^\n]*\n)LTL(^\#!/usr/bin/perl[^\n]*\n)LTL(^\#!/usr/
+bin/perl[^n]*n)LTL${
"
  2. or download this
     
$regExpKey          = (^\#!/usr/bin/perl[^\n]*\n)
$searchPattern      = (^\#!/usr/bin/perl[^\n]*\n)
$replacementPattern = ${^MATCH}\x0Ause English \( no_match_vars \);\x0
+A
  3. or download this
     
$content =~ s{$searchPattern}{${^MATCH}$replacementPattern}gxms;
  4. or download this
    "
${^MATCH}\x0Ause English \( no_match_vars \);\x0A
"