my %name;
my %alt;
my %bad;
while (<CONF>) {
    if ( /^(.+)\s(http:\/\/\S+)\s*(.+)$/ ) {
        $name{$2} = $1;
        $alt{$2} = $3;
    } else {
        $bad{$.} = $_;
    }
}
close CONF;
if ( keys %bad ) {
    warn "unusable config data at line $_:\n  $bad{$_}"
        for ( sort { $a <=> $b } keys %bad;
}
warn "Loading ",scalar( keys %alt )," comic sites\n";

for ( keys %alt ) {
    # ... and so on
}