No pattern matching at all:

#!/usr/bin/env perl

use strict;
use warnings;
use HTML::TokeParser;
use feature qw/say/;

my $parser = HTML::TokeParser->new(q(0000950103-23-011632.txt));

say $parser->get_text if $parser->get_tag(q(filename));
[download]