$ perl -Mstrict -Mwarnings -E '
my $line = q{xxx yy yy:yy:yy xxx/xxxxx xxx xxxx xxx xxx};
my ($month, $day, $time, $rest) = split / / => $line;
say $time;
'
yy:yy:yy