format STDOUT =
@<<<<@<<<<@<<<<<<<<<<END
$a, $b, $c
.

$a = "a";
$b = "b";
$c = "c         .bc";

print 'len=',length $c;
write(STDOUT);