#!/usr/bin/perl

open IN, "input.txt";
open OUT, "output.out";
while (my $a=<IN>) {
   $content.=$a;
}   

while($content=~m/(^MEDICAL HISTORY:)(.*?)(\n^[A-Z])/sgm )
     
{
print "$2\n";
}
exit;