#!/usr/bin/perl -w
use strict;

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.';
my $blank_line = '_____________________________';
my $sig        = 'Marcus Welby, M.D.';
my $prep_by    = 'MW/bnj';

format FLDFMT =

@<<<<<<<<<<<<<<<<^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$last_line_label, $line
~~     ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$line

       @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
       $blank_line
       @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
       $sig
       @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
       $prep_by
.

    $~ = 'FLDFMT';
write;