kainwinterheart — sub prep { my $word = shift; $word =~ ...

kainwinterheart 22.09.2011 11:58 workF4AD7369

sub prep
{
my $word = shift;

$word =~ s/[\/\!\@\#\$\^\&\%\*\+\=\-\[\x5B\x5D\]\\\/\{\}\|\:\<\>\?\,\.\'\"] //gi;

$word =~ s/^[0-9]+$//;

if( length( $word ) < 3 )
{
$word = '';
}

return $word;
}

#ozsfez