Perl: split()
split()
split() allows you to split a string on a certain character or pattern
split returns the substrings as an array
$line = "Homer Simpson:742 Evergreen Terrace:Springfield:RI:02896";^M
($fname,$lname,$address,$city,$state,$zip) = split(/:/,$line);
print "Name is: $fname $lname\n";
$line = "Homer Simpson:742 Evergreen Terrace:Springfield:RI:02896";^M
($fname,$lname,$zip) = (split(/:/,$line))[0,1,5];
print "Name is: $fname $lname\n";