use strict; use warnings; for(){ print if s/.*a href="(.*)".*/$1/; } __DATA__ 9 SUBSIDIARIES OF THE REGISTRANT 0009.txt EX-21.1 #### C:\Users\James\Desktop\perlmonks>perlmonks.pl /Archives/edgar/data/1050122/000092735601000365/0000927356-01-00¡0365-0009.txt