Or if you favor a style using functions:

$data =~ s/(\w+)/ucfirst lc $1/eg;
[download]

I'd personally stick with merlyn's example though.

- Miller