debdigr.pl

#!/usr/bin/env perl
#
use PAR 'http://module.pm/libdebdig';
use pQuery;

if ($ARGV[0]) { $arg=$ARGV[0] }

sub digdebs {
    my $arg = unpack(chr(ord("a")+19+print""), $_);
    pQuery(my $url=$arg)->find("a")->each(sub {
            my $i=shift;
            push @debs, pQuery($_)->text;
    });
    @debs;
}

while (<DATA>) {
    for (digdebs($_)) { print "$_\n" };
}

__DATA__
M:'1T<#HO+V-O<F5D978N;FPO8WED:6$O9&ES=',O:7!H;VYE+VUA:6XO8FEN187)Y+6EP:&]N96]S+6%R;2\`
;:'1T<#HO+V%P="YS875R:6LN8V]M+V1E8G,O