#!/usr/bin/perl -w 

use strict;

my $x = 'there are 12345 apples';
print "Original string:$x\n";

$x =~ tr/a/b/;
print "\n$x\n";

$x =~ tr/ /_/;
print "\n$x\n";

$x =~ tr/aeiou/AEIOU/;
print "\n$x\n";

$x =~ tr/0-9/QERYUIOPX/;
print "\n$x\n";

$x =~ tr/A-Z/a-z/;
print "\n$x\n";