Simple Perl script to extract restaurant names and phone numbers from web (Hard coded web link)