rfkill list | grep Bluetooth | perl -pe 's/^(\d+).*/rfkill block \1/' | sh