$str = "text delimeter text delimeter text"; @a = split(/\s+(delimeter)\s+/, $str);