$foreach =~ s/\r?\n$//g;