package Validate;

sub alphanum {
    my ($class, $value) = @_;
    return unless $value =~ /^([A-Za-z0-9 -]*)$/;
    return "$1";
}
1;