use strict;
$,="---";
$\="\n";
print nono => "1";
print nono . "1";
__DATA__
nono---1
nono1

##</code><code>##

print join($, , LIST).$\;