#!/usr/bin/perl --

use strict;
use warnings;

use any::feature 'say';

while (<DATA>)
{
    my @line = split(/ /,$_);
    say $line[2] if  $line[2] eq '<stuff>';
}
__END__
Date Time <stuff> 3344 123456789
Date Time could be good
Date Time <otherstuff> 4321
Date Time <sohappy> this is really great