http://qs321.pair.com?node_id=632358


in reply to Regex Typecase

You're working too hard.
$data =~ s/(\w+)/\u\L$1/g;
Of course, this is an example from Learning Perl. {grin}

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"} @_;