if (substr($title,0,1) eq $layer) { # do something... } #### if (lc(substr($title,0,1) eq lc($layer)) { # do something... } #### my $title = $dbrow{Title};
## if (lc(substr($title,0,1) eq lc($layer)) { # do something... } ##
## my $title = $dbrow{Title};