You could always convert !$v into an integer before you print it. The easy way to do this is:

v=1;
$f=0+!($v);
print "**$f**\n";
[download]