open my $fh, "filename" or die $!;
while (my $line = <$fh>) {
   local $/ = "\r";
   open my $fh, "<", \$line or die $!;
   while (my $line = <$fh>) {
      # process $line here
   }
}