$ perl -wle 'my $ x = 3; print $ x'
3