package Validate;

sub word
{
    my ($class, $tainted) = @_;
    return $1 if $tainted =~ /^([-A-Za-z -]+)$/;
    error_page();
}