Select Code to Download

package Validate;

sub word
...
    return $1 if $tainted =~ /^([-A-Za-z -]+)$/;
    error_page();
}