Re: regex for text manipulation

[gube]

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

[sen]

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;