#!/usr/bin/perl -w
use strict;

my $info = "one:two:three:four";
$info = uc($info);
my @arr = split(/:/, $info);

print "@arr\n";
__END__
Prints:
ONE TWO THREE FOUR

##</code><code>##

my $info = "one:two:three:four";
my @arr = split(/:/, uc($info) );