while(<>)
{
  if ( s/<$// )
  {
     chomp;
     print '<p>', $_, "</p>\n";
  }
  else
  {
     print;
  }
}