#!/usr/bin/perl
use diagnostics -verbose;
use 5.010;
use strict;
use warnings;

open (DATA, 'text.log') or die print $!;
binmode DATA #I am trying everything I can
while (<DATA>)
{
     @line = split(/ /,$_);
     $test = $line[2];
     if ($test == '<stuff>')
     {
     say "$test\n";
     }
}
close DATA;