in reply to Regex Typecase

You're working too hard. 
$data =~ s/(\w+)/\u\L$1/g;

[download]
Of course, this is an example from Learning Perl. {grin}

-- Randal L. Schwartz, Perl hacker

Replies are listed 'Best First'.
Re^2: Regex Typecase
by logie17 (Friar) on Aug 14, 2007 at 01:31 UTC
    Thankyou, I knew there was a better way.
    Regards,
    s;;5776?12321=10609$d=9409:12100$xx;;s;(\d*);push @_,$1;eg;map{print chr(sqrt($_))."\n"} @_;
[reply]

In Section Seekers of Perl Wisdom