Select Code to Download

my $str = "user:group:root:testing";
@user = split(/:/, $string);

my $yourstr = "user:pass";
my ($User,$Pass) = split (/:/,$yourstr);
print "User:$User\n";
print "Pass:$Pass\n";