$ perl -wle'print("%7" =~ /(?x)#/)'
1