No, unless your double lines have a unique delimiter. But, let's say you're reading FILEHANDLE...

while (1) {
  $double_line =  (<FILEHANDLE>).(<FILEHANDLE>) || last;
  print $double_line."\n---------\n";
}
[download]

Is that what you're looking for?

cLive ;-)