foreach (@record){

my $name;
my $id;
my $summary;

my @data = split('', $_);
$name = $data[0];
$id = $data[1];
$summary = $data[2];

format STDOUT =
@<<<<<<  @<<<<<<<<<<<<  @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$name,   $id,           $summary
~~                      ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
                        $summary
.
write;
}