my $last_line_label = 'IMPRESSION/PLAN: ';

my $line =  'I discussed otitis media with her but since her ears are normal today, we do not need to do anything with them.


_____________________________
Marcus Welby, M.D.

MW/bnj';

format FLDFMT =

@<<<<<<<<<<<<<<<<^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$last_line_label, $line
@*
$line
.

$~ = 'FLDFMT';

write;
__END__
C:\test>209620

IMPRESSION/PLAN: I discussed otitis media with her but since
her ears are normal today, we do not need to do anything with them.


_____________________________
Marcus Welby, M.D.

MW/bnj

C:\test>