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;

[download]
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;

[reply]
[d/l]

In Section Seekers of Perl Wisdom