#!/usr/bin/perl $string = 'W3xxue'; $string =~ tr/a-z/a-z/s; print "$string\n";