Help for this page
#!/usr/bin/perl -w use strict; ... __END__ Prints: ONE TWO THREE FOUR
my $info = "one:two:three:four"; my @arr = split(/:/, uc($info) );