crawler, perl, extraction