-f $_ && push( @files, $concat );

##</code><code>##

unless (open(IN,$file)) {
    warn "Unable to open $file for modification\n";
    next;
}