for my $url (@list) { next if ($url =~ m/\/s.*pdf/); print $url; print "\n"; }