in reply to Re^4: reading files to different output files.
in thread reading files to different output files.

Where do you use @file_names ?

foreach (@ARGV) sets $_ to the script arguments, where do you use $_ ?

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,

[download]

In Section Seekers of Perl Wisdom