use v5.30.0;

'ABC' =~ /B/ if @ARGV;

my $last;
say ' (\'NAME\'=~/$last/i)=', 'NAME' =~ /$last/i ? 1 : 0;

##</code><code>##

D:\>surprise.pl
 ('NAME'=~/$last/i)=1

##</code><code>##

D:\>surprise.pl all
 ('NAME'=~/$last/i)=0