! /def/

##</code><code>##

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