That's easy.
my $v="V"; $_="_"; for ( $v ) { print "inside: $_\n"; } print "outside: $_\n"; [download]
In reply to Re^4: Avoiding if/else knots II by Skeeve in thread Avoiding if/else knots II by loris