my @ss = $line_in =~ m/(href="[^"]+")/gi; print "$_\n" for @ss; # # href="perl1.css" # href="//www.perl.org/css/perl1.css" # href="/css/perl.css"