$num =~ tr/0-9//dc;