Public feed
#1649058
#!/usr/bin/perluse warnings;use strict;my @foo;my $blah = q/"'/;while(<>) { s/href=[$blah](.[^$blah]*)[$blah]/push @foo, $1/eg;};print "$_\n" foreach @foo#!/usr/bin/perluse warnings;use strict;my @foo;my $blah = q/"'/;while(<>) { s/href=[$blah](.[^$blah]*)[$blah]/push @foo, $1/eg;};print "$_\n" foreach @foo