while (my $line=<DATA>) {
    chomp($line);..
##</code><code>##

#file: test.pl
#!/usr/bin/perl -w
use strict;
use v5.10;

my $pattern = qr/test/;

while (my $line=<DATA>) {
    chomp($line);
    $line =~ /($pattern)/p;

    my $result =  $line. '  => matched:'.${^MATCH}.$/;
    print $result;
}

__DATA__
test1a.txt
test1b.txt
test1c.txt