in reply to capturing names
After Dave's regex (and suggestion about the comment) try
Aseidasfor ($data){ if (m#/([^/]*\.bld)$#) { $count=$count+1; $hold[$count]=$1; print "$hold[$count]\n"; } }
|
---|
In Section
Seekers of Perl Wisdom