#!user/bin/perl
use warnings;
use strict;

my $inFile = <<FILE;
FILE

...

open my $fIn, '<', \$inFile;

while (defined (my $line = <$fIn>)) {
    ...
}