"
(^\#!/usr/bin/perl[^\n]*\n)LTL(^\#!/usr/bin/perl[^\n]*\n)LTL(^\#!/usr/bin/perl[^n]*n)LTL${
"

##</code><code>##

 
$regExpKey          = (^\#!/usr/bin/perl[^\n]*\n)
$searchPattern      = (^\#!/usr/bin/perl[^\n]*\n)
$replacementPattern = ${^MATCH}\x0Ause English \( no_match_vars \);\x0A

##</code><code>##

 
$content =~ s{$searchPattern}{${^MATCH}$replacementPattern}gxms;

##</code><code>##

"
${^MATCH}\x0Ause English \( no_match_vars \);\x0A
"