Plankton, great answer! Now you can use a array slice to throw away what you don't need:

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

Later