Enter Juliet Romeo! Romeo! Where the heck are you! claps. ##

##

while (<>) {
   if (/^<(.+?)>(.*)$/i) {
      $tag = $1;
      $part{$tag} .= $2;
   }
   else {
      $part{$tag} .= $_;
   }
}