for ($left, $right) {
    $_ = lc;
    tr/A-Za-z//cd;
}