in reply to Small question: Why can't I print "@-"?

A simple solution: set $, to something not empty. Then you can just drop the quotes.
$_ = 'There is food at the bar'; /(fo+)/; $, = "-"; $\ = "\n"; print @-;