#!/usr/bin/perl -w
use strict;

my @ss = getItemsFromFile();
foreach my $s (@ss)
{ print "$s\n"; }

sub getItemsFromFile
{
    local $/=undef;

    my ($file_in) = "\n<?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\">  <?xml-stylesheet href=\"perl1.css\" type=\"text/css\"?>\n\n";
    my @allItems=();

    while  ( $file_in =~ m{(.*stylesheet.*)}igs )
    {
        my $line = $1;
        $line =~ s/>\s+\</></igs;
        $line =~ s/></>\n</igs;
        while  ( $line =~ m/.*[<] *(.*stylesheet.*) *[>]/ig )
        {
            my $line1 = $1;
            if ( $line1 =~ m/(href *= *['"])([^'"]+)['"]/  )
            { push(@allItems, $2); }
        }
    }
    return @allItems;
}