johngg@aleatico:~$ perl -Mstrict -Mwarnings -E 'say q{};
sub bar {return q{bar} }
say qq{Drink at the @{ [ bar() ]}};'

Drink at the bar