while ($content =~ /^MEDICAL HISTORY:(.+?)\n^[A-Z]/sgm)
    print "$1\n";
}