Help for this page

Select Code to Download

Select or download this

@temp2 = (split /([MmTtWwFf])/, $data);
    #gives me [ ,T ,t,H1] from input"TtH1"

      @temp2 = (split /([^MmTtWwFf])/, $data);
    #gives me [Tt,H, ,1] from input "TtH1"