#!/usr/local/bin/perl
my $data='DATETIME 09:59:11';
 
my (@sout) = split /[\s,:]/, $data;
print $sout[1];