#!/usr/bin/perl -w

#######################################################
# lect04_split_ex
#
# example of split operator
#
# last modified: 9-14-04
#######################################################

# @line_vals has a separate value for each value after a : 
@line_vals = split / : /, "the rain:in Spain : stays mainly  :  ".
                          "in the plain"; 
 
foreach $val (@line_vals) 
{ 
    print "NEXT LINE VAL:<$val>\n"; 
} 


# end of lect04_split_ex