Re^3: Regex match on implicit default variable ($

The "def" will only be a part of the line. If "def" occurs anywhere in the line I want it included.

This perhaps?:

#!/usr/bin/perl

use strict;
use warnings;
use diagnostics;

my $A = "abcdef
fhijkl
mnopqr
redefine
";

( my $B = $A ) =~ s[(^.+\n)][ my $x = $1; $x !~ /def/ ? '' : $x ]gme;

print "$B";

__END__
C:\test>1145825.pl
abcdef
redefine
[download]

With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority". I knew I was on the right track :)

In the absence of evidence, opinion is indistinguishable from prejudice.

Comment on Re^3: Regex match on implicit default variable ($_) in a script, not a one liner Download Code