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