Erstatte små bogstaver med store

[Kenneth Ahn Jensen <sslug@sslug>]

Jeg er total perl/regexp begynder, og er i tvivl om dette er smart.
I mit perl skript har jeg brug for at konvertere en streng til store 
bogstaver (og tal) i tilfældet at den skulle være med små bogstaver (og 
tal).
Det udtryk jeg har bikset mig frem til er dette:

$VAR=~ s/([a-z])/\U\1\E/g

Det ser ud til at virke, men er det den fornuftige måde at gøre det på?

-- 
Mvh
Kenneth