my @text = split(/\n+/,$file);