in reply to Simple regexp question
Hi,
I couldn't understand your expectation. If my guess is right, then try the following:
open INFILE,"$filename" || die "cant open the input file";while (<INFILE>) {
push (@filtered,$_) if (/[\#\*]+/);
}
print "@filtered";
Regards
Franklin
Don't put off till tomorrow, what you can do today.
In Section
Seekers of Perl Wisdom