use strict;
use warnings;

while (my $line = <DATA>) {
    next if $line !~ /<stuff>/;

    print $line;
}

__DATA__
Date Time <stuff> 3344 123456789
Date Time could be good
Date Time <otherstuff> 4321
Date Time <sohappy> this is really great