if ( $_rec =~ /A .. Z/) {
    $_rec =~ tr/A-Z/a-z/g;
    ...
}