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;
}
##</code><code>##

Sue      
Sue      098765598      Background alkgjal ksjhfk kajfhkas 
                        Background alkgjal ksjhfk kajfhkas 
                        alkdfj lskdfmh duuye ehfu sli leoi
                        end.
Jane    
Jane     098776556      Background lifjsl iejfls iwlfilsi 
                        Background lifjsl iejfls iwlfilsi 
                        lagkj lsifjlwei  ksdjf lkci kjosie
                        ksud last line.