use strict;
use warnings;

my ($field1, $field2);

format =
@<<<<@>>>@
$field1,$field2, 'x';
.

$field1 = "Hello";
$field2 = "    ";
write;

$field1 = "ab";
$field2 = "cd";
write;