Select Code to Download

<stage right> Enter Juliet
<speech Juliet> Romeo! Romeo! 
Where the heck are you!
<audience> claps.

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