my $scalar =   "abc\ndef\nghi\n";
print $1 . $3 if $scalar =~ /(.*)(\ndef)(.*)/s;