I suggest you look at either perlretut for a regular expression solution or look at split for a split solution. The code would look rather similar in either case.