foreach (@open) {
$_ =~ s/\n//ig;