Puzzle: brass instrument?
Deduce what this does, and I’ll talk about you on this fine literary establishment. Clue: one of the simplest brass instruments. Difficulty: 3/4.
use strict; use warnings; use 5.010; my $d =
'http://www.timesonline.co.uk'; while (<>) {/value="(.*?)"/; my $u =
$1; if ($u =~ m{^/}) {$u = $d . $u;} my $o = `wget -q -O
- "$u"`; for ($o =~ m/ef="(.*?)">.*?DOW/) {say $1;}}