perl -wle'print $foo if my $foo = 123'