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