if ($char =~ /\p{Sm}/) {
    print "'$char' is a Math Symbol\n"; 
}