This seems close to your Version D?
Update:Unfortunately, the operative word in that sentance is "looks". The reality when tested with longer text is that it does no wrappong whatsoever. My apologies.
I also got something that got closer by doing $line =~ s/\n/\r/g; and repeating the the last two lines in your original format a bunch of times. It wraps the long line ok and places the horizontal rule underneath, but then the rest of the sig just disappears into the ether. :(
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>
In reply to Re: Using '/r' with '~~ $var' in format
by BrowserUk
in thread Using '/r' with '~~ $var' in format
by ff
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |