#/usr/bin/perl -w
use strict;
{
local $/ = "\/\/\n";

while (<DATA>) {
        #chomp;
        print "< $_ > \n";
}
}

__DATA__
first row
second row
//
another first
another second
//
one more (3.1)
one more (3.2)
//

##</code><code>##

< first row
second row
//
 >
< another first
another second
//
 >
< one more (3.1)
one more (3.2)
//
 >

##</code><code>##

< first row
second row
 >
< another first
another second
 >
< one more (3.1)
one more (3.2)
 >

##</code><code>##

 _  _ _  _  
(_|| | |(_|><
 _|