Select Code to Download

 
use strict;
use warnings;
...
    
    eval "print \"\$var = <$var> isn't false\" if $var";    
}

--- $s1
$s1 = <1> isn't false
...
@a1 = <1 2 3> isn't false
--- @a2
--- @a3