Select Code to Download

my $line_in = <<EOT;
<?xml-stylesheet href="perl1.css" type="text/css"?>
<link href="//www.perl.org/css/perl1.css" rel="stylesheet">
<link href="/css/perl.css" rel="stylesheet">
EOT

my @ss = $line_in =~ m{<(.*?)stylesheet(.*?)>}gis;

  $1                         $2
|----|          |--------------------------------|
...
                $1                        $2
 |-----------------------------|          |
<link href="/css/perl.css" rel="stylesheet">

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"

my @ss = $line_in =~ m/<(?=[^>]*stylesheet).*(href="[^">]+")/gis;