Select Code to Download

$ perl -le'print q{"$temp"}'
"$temp"

$ perl -le'$temp=q{Bread was $1.50}; print eval q{"$temp"}'
Bread was $1.50

$ perl -le'$temp=q{Bread was $1.50}; print "$temp"'
Bread was $1.50

'...'

sprintf('%s', '...')

$ perl -E'use strict; my $x = 10; eval q{ my $y = $x; }; say $y'
Global symbol "$y" requires explicit package name at -e line 1.
...

$ perl -E'use strict; my $x = 10; my $y = eval q{ $x }; say $y'
10