Select Code to Download

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

$ perl -Mstrict -Mwarnings -E '
use constant {
...
say $fields[TIME];
'
yy:yy:yy

$ perl -Mstrict -Mwarnings -E '
my $line = q{xxx yy yy:yy:yy xxx/xxxxx xxx xxxx xxx xxx};
...
say $time;
'
yy:yy:yy

$ perl -Mstrict -Mwarnings -E '
my $line = q{xxx 1 12:34:56 xxx/xxxxx xxx xxxx xxx xxx};
...
say $hour;
'
12