if you sure your pattern is correct and like this all the time, you can use this :
my ( $name, $age, $sex, $ad ) = split /[\s\,]+/, $_;