use strict;
use warnings FATAL => 'all'; # ;)

my( $one, $two ) = split /:/, q[DATETIME 09:59:11], 2;

print substr( $one, -2 );