$_ = 'There is food at the bar';
/(fo+)/;

$, = "-";
$\ = "\n";
print @-;