while (my $file = <FP>) {
    chomp $file;
    ...
}

##</code><code>##

my @files = `find . -ls`;
foreach my $line (@lines) {
   chomp $file;
   ...
}