#!/usr/bin/perl -w
use strict;

while (<DATA>) 
{
   if($_ =~ /(<.+>)(<.+>)(.*)/)
   {
      print "$1\n\n";
      print "$2\n\n";
      print "$3\n\n";
   }
}