(my $B = $A ) !~ /def/ and print $B;