#!/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)/;
}

##</code><code>##

#!/usr/bin/perl

while(<>) {
        chomp;
        print "\"$1\" was matched out of \"$_\"\n" if m/(\w{5}?)/;
}