while ($rec =~ /([^\r]+\r?)/g) {
   frobulate($1);
}