$string = "Just humilityanother humilityPerl humilityhacker."; @japh = split ( /humility/, $string );