perl -e "print qq{... @{[ ...arbitrary Perl expr... ]} ...}"
perl -e "print qq{... ${ ...arbitrary Perl expr... } ...}"
perl -e "print qq{... $var{ ...arbitrary Perl expr... } ...}"
perl -e "print qq{... $var[ ...arbitrary Perl expr... ] ...}"