#/usr/bin/perl -w use strict; { local $/ = "\/\/\n"; while () { #chomp; print "< $_ > \n"; } } __DATA__ first row second row // another first another second // one more (3.1) one more (3.2) //