#!/usr/bin/perl
while(<>) {
     chomp; # chomp so this next output is pretty.
            # newlines aren't discarded when you <>
     print "\"$1\" was matched out of \"$_\"" if m/(your_pattern)/;
}