# Cargo-cultish version with a temp variable.
my $_name  = param('name') || '';
my ($name) = $_name =~ /^([[:alpha:]]+)$/;

##</code><code>##

# BrowserUk's cargo-cultish only version.
my ($name) = (param('name') || '') =~ /^([[:alpha:]]+)$/;

##</code><code>##

# My preferred version.
my ($name) = param('name') =~ /^([[:alpha:]]+)$/;