in reply to regex for text manipulation

#!/usr/local/bin/perl my $str = "today is wednesday.tomorrow IS THURSDAY"; $str =~ s/^(\w)(.*?)([.])(\w)(.*)/uc($1).lc($2).lc($3).uc($4).lc($5)/g +ei; print $str;
o/p: Today is wednesday.Tomorrow is thursday

Replies are listed 'Best First'.
Re^2: regex for text manipulation
by sen (Hermit) on Nov 07, 2007 at 07:50 UTC

    hi,

    The third match is the dot, then why the need of lc($3), i think $3 is enough.

    $str =~ s/^(\w)(.*?)([.])(\w)(.*)/uc($1).lc($2).($3).uc($4).lc($5)/gei;