print $f,$l,"\n";
#becomes one of:
{ local $, = ' '; print $f, $l; print "\n"; }
print $f, ' ', $l, "\n";
print join(' ', $f, $l), "\n";