Help for this page

Select Code to Download

Select or download this
```
  $string =~ s/^(.*)(.{3})$/\U\1\L\2/;
```

Select or download this

  $string =~ s/^(.*?)(.{1,3})$/\U$1\L$2/;