my $foo = '-bar';
print $foo;
print -$foo;