perl -e 'my *x'