string change problem

From: Muthukumar (ramana_muthu_at_yahoo.co.in)
Date: 03/29/04 

To: beginners@perl.org
Date: Mon, 29 Mar 2004 15:05:34 +0530

    Hai all.

        I want to make a script which converts like (pErl1234test = perl).I
wrote like

        #!/usr/bin/perl
        print "Enter ur name"
        $name = <STDIN>
        $org_name = $name
        $name =~ s/\W.*//; #change 1
        $name =~ tr/A-Z/a-z/; #change 2
        print "Old = $org_name\n";
        print "New = $name\n";

        But i can not get a change on the change 1 and 2 lines.

    Regards,
    Muthukumar.