replace

@line = split(/ /,$_);
     $test = $line[2];
     if ($test == '<stuff>')
[download]

by

if ( $_ =~ m/<stuff>/ )
[download]

then remove the '$_ =~' part, and use a regular expression in m/ /