http://qs321.pair.com?node_id=655309


in reply to Re^4: can any reply out with a better code than this??
in thread can any reply out with a better code than this??

Do you mean something like this?
use strict; my $string = 'ri\d+'; while (my $line = <>) { if ($line =~ m{ ( ( \Q$string\E ){3} ) }xms) { print $line; printf qq{\tMatched "$2" x 3: "$1"\n}; } }

Why don't you post a little more of your code "calling some files"?