#!/usr/bin/perl

use strict;
use warnings;
use diagnostics;

my $A="abc\ndef\nghi\n";
(my $B = $A ) =~ ! /def/; 
print "$B";