perl -E '$1 = 100; say $1;'