{ local $/ = "<tag1>";
  while ( my $paragraph = <FILE> ) {
      $paragraph =~ s/<tag1>/\n/g;
      $paragraph =~ s/<tag2>/\t/g;
      print OUTFILE $paragraph;
  }
}