Select Code to Download

my ($fn) = $address =~ /^\W?(\w+)/;
return unless defined $fn and length $fn;
...

$window->command("msg $channel $nick> $quote")
    for split /\n/, $quote;