chomp(my $data = <FH>);
while ((my $foo = some_func()) eq 'bar') { ... }