Select Code to Download

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