my %text = split $delim, $text;