Perl Regular Expression - Whitelist

I am creating a whitelist for User Input Validation. Here is a code snippet that allows alphanumeric and forward slash (/).
if ( $variable =~ /^[a-zA-Z0-9\/]*$/ ) #allow alphanumeric and fwd slash
{
$returnValue = 'good data';
}
else
{
$returnValue = 'Bad Data';
}

The problem that I am having is that when I pass a value such as
FWD/RWD, the code returns the value 'Bad Data'. What am I doing wrong? Why doesn't the variable recognize the forward slash in the regular expression?

Thanks in advance for your help.
Dave

I added /^[a-zA-Z0-9\/\,]*$/ and it worked for me.

I wasn't sure if your input was FWD/RWD or FWD/RWD,

Reggie,

Sorry, but that is not the problem. The problem is that the regular expression is not seeing the forward slash (/).

For example, the following string should evaluate to 'good data'.

$variable = 'RWD/FWD';
if ( $variable =~ /^[a-zA-Z0-9\/]*$/ )
#allow alphanumeric and fwd slash only
{
$returnValue = 'good data';
}
else
{
$returnValue = 'Bad Data';
}

I got "good data" after I added

print $returnValue;

at the end of your script.