Thanks, John.
It works smoothly. Amazingly simple. Actually, I use similar match, but different print.
I know what I did wrong before: I use this instead-
print $_, ".\n"; (after the match) And it only works for the first instance!
Will join this group now.