string change problem

[MuthuKumar]

    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.




-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>