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

my $var = "xxx:12345 yyy:54321 zzz:13245";

my @items = split("\:",$var);
@items = split(" ",$items[1]);
print "$items[0]\n";