for ($data){ if (m#/([^/]*\.bld)$#) { $count=$count+1; $hold[$count]=$1; print "$hold[$count]\n"; } } [download]
In reply to Re: capturing names by aseidas in thread capturing names by Sara