#! perl
use strict;

{
    $/ = "myrecordsep\n";
    scalar <DATA>; ##discard the first;
    while (<DATA>) {
        chomp;
        print "'$_'\n";
    }
}
__DATA__
myrecordsep
field1=item1
field2=item2
myrecordsep
field1=item1
field2=item2
myrecordsep
field1=item1
field2=item2
myrecordsep
field1=item1
field2=item2

##</code><code>##

C:\test>junk2
'field1=item1
field2=item2
'
'field1=item1
field2=item2
'
'field1=item1
field2=item2
'
'field1=item1
field2=item2
'