$ perl -Mstrict -Mwarnings -E '
my $line = q{xxx yy yy:yy:yy xxx/xxxxx xxx xxxx xxx xxx};
my @fields = split / / => $line;
say $fields[2];
'
yy:yy:yy

##</code><code>##

$ perl -Mstrict -Mwarnings -E '
use constant {
    MONTH   => 0,
    DAY     => 1,
    TIME    => 2,
};
my $line = q{xxx yy yy:yy:yy xxx/xxxxx xxx xxxx xxx xxx};
my @fields = split / / => $line;
say $fields[TIME];
'
yy:yy:yy

##</code><code>##

$ 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

##</code><code>##

$ perl -Mstrict -Mwarnings -E '
my $line = q{xxx 1 12:34:56 xxx/xxxxx xxx xxxx xxx xxx};
my $line_re = qr{^(\w+) (\d+) (\d+):(\d+):(\d+) (.*)};
my ($month, $day, $hour, $min, $sec, $rest) = $line =~ m{$line_re};
say $hour;
'
12