#!/usr/bin/perl -w ###-DDEBUGGING -d -Dslt`
use strict;
use warnings;
use Env;
use English qw( no_match_vars );

my $searchPattern='(^\#!/usr/bin/perl[^\n]*\n)';
my $insertion = "\nuse English \( no_match_vars \);\n";
my $content = "#!/usr/bin/perl   \n\nyaba-dubba-doo\n";

print "content = <$content>\n";
print "insertion = <$insertion>\n";

$content =~ s?$searchPattern?${1}${insertion}?msx;
print "content now = <$content>";
exit 0;


##</code><code>##

content = <#!/usr/bin/perl   

yaba-dubba-doo
>
insertion = <
use English ( no_match_vars );
>
content now =<#!/usr/bin/perl   

use English ( no_match_vars );

yaba-dubba-doo
>