$l = "This is long string" ;
$s = "s";
format STDOUT =
~~ @<<< @<
$l, $s
.