perl codes for data scraping