I whould like to see reformated lines like this:

foreach my $file2 (@file2only) {
  unless ( ( $file2 =~ "tmp" ) or ( $file2 =~ "temp" ) or ( $file2 =~ 
+"recycler" ) or ( $file2 =~ "history" ) ) {
    print OUT $file2;
  }
}
[download]

to this:

foreach my $file2 (@file2only) {
  unless (    ( $file2 =~ "tmp" )
           or ( $file2 =~ "temp" )
           or ( $file2 =~ "recycler" )
           or ( $file2 =~ "history" ) ) {
    print OUT $file2;
  }
}
[download]

Im not sure if this is what you mean at all, if file2 = 'historyfile' it is matched by $file2 =~ /history/. I think you mean

foreach my $file2 (@file2only) {
  unless (    ( $file2 eq "tmp" )
           or ( $file2 eq "temp" )
           or ( $file2 eq "recycler" )
           or ( $file2 eq "history" ) ) {
    print OUT $file2;
  }
}
[download]

or

foreach my $file2 (@file2only) {
  unless ( $file2 =~ /^tmp|temp|recycler|history$/ ) {
    print OUT $file2;
  }
}
[download]