while (my $line = <FILE>) {
    my @files = map { m!/([\w\.\-]+)\W*$!; $1 } 
                grep { m!/! } split ' ', $line;
    # blah

}