use strict; use warnings; for(){ print if s/.*a href="(.*)".*/$1/; } __DATA__ 9 SUBSIDIARIES OF THE REGISTRANT 0009.txt EX-21.1