in reply to File opening, based on a regex...

I think you want to do ... 
open (FILE, ">>$_");

[download]
... and don't forget to chomp ... 
while(<>) {
   chomp;

[download]

Plankton: 1% Evil, 99% Hot Gas.

In Section Seekers of Perl Wisdom