nettezzaumana
public text v1 · immutable#!/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