use strict;
use warnings;
$|=1;

my $data = <<END;
asdf fjfjf
324
0
2345
2wefrwef
END

#chomp $data; #toggle on/off to see results

open my $fh, "<", \$data or die "$!";

while (chomp (my $line = <$fh>))
{
    print $line;
}

__END__
asdf fjfjf324023452wefrwefUse of uninitialized value $line in chomp at testchompWhile.pl line 15, <$fh> line 5.
asdf fjfjf32402345