#!/usr/local/bin/perl
$string = join(" ", "this", "is", "a", "string");
print("$string\n");

$string = "words::separated::by::colons";
@array = split(/::/, $string);
$count=0;
while($count<@array){
	print("$array[$count]\n");
	$count++;
}


print ('press ENTER to EXIT');
$in = <STDIN>;