If you capture bracket the split regex, the delimiters will be retained:

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

A pointless example, but it demos the technique.