#! /usr/bin/perl -C255

use strict;
use warnings;
use LWP::Simple;
use Encode 'decode';
use URL::Encode ':all';
use feature 'unicode_strings';
use utf8;
use open ':encoding(UTF-8)';

open INFIL, "<:encoding(UTF-8)", "temp.txt" or die;

#while (<DATA>) { ###CHANGE HERE###
while (<INFIL>) {
    chomp;
    my $title = $_;
    $title =~ s/\/.*//;
    $title =~ s/\[by.*//;
    print "Title Searched: $title\n";
    $title = url_encode_utf8($title);
    my $html = getprint("https://clio.columbia.edu/catalog?q=$title&search_field=title_starts_with&f%5B-format%5D%5B%5D=Online&commit=Search") or die;
}

exit;

__DATA__
How to conduct your own survey / Priscilla Salant and Don A. Dillman.