$s = "this.that,the other; and this! as well";;

@bits = split /([.,;!])/, $s;;

$_ !~ /[.,;!]/ and $_ = uc for @bits;;

print join'',@bits;;
THIS.THAT,THE OTHER; AND THIS! AS WELL