Select Code to Download

$_ ||= '' for $var1, $var2, $var3;    
print "var1=$var1 -- var2=$var2 -- var3=$var3\n";

print "var1=", $var1 || '', " -- var2=", $var2 || '', " -- var3=", $va
+r3 || '',  "\n";