You'll need to fix this also > ($str1,$str2) = split(/./, $filetoopen); It should be: ($str1,$str2) = split(/\./, $filetoopen); So that split can funcrion as you expect.
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
