#!/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)/gei;

print $str;