use strict;
use warnings;

my $data = <<DATA;
this is a good \
nice day but not a good nice \
night
DATA

open my $IN, '<', \$data;

...

while (<$IN>) {
    ...
}

close $IN;