Select Code to Download

if (substr($title,0,1) eq $layer) {
    # do something...
}

if (lc(substr($title,0,1) eq lc($layer)) {
    # do something...
}

my $title = $dbrow{Title};