my @files = split(/^/, $files);