chomp(my $line = <RESULTS>);
print "Read in: '$line'\n";
while (defined $line) {
    # Do stuff here
    chomp ($line = <RESULTS>);
}