|
|
@ -2,6 +2,11 @@ |
|
|
|
|
|
|
|
# retrieve sort of a bullety / wingdingy kind of character |
|
|
|
|
|
|
|
# three things code can be: |
|
|
|
# a kind of prose |
|
|
|
# a kind of poetry |
|
|
|
# a kind of mathematics |
|
|
|
|
|
|
|
# i have no idea what is going on here |
|
|
|
use utf8; |
|
|
|
use open ':std', ':encoding(UTF-8)'; |
|
|
@ -11,7 +16,7 @@ use warnings; |
|
|
|
use 5.12.0; |
|
|
|
|
|
|
|
my @bullets = qw( |
|
|
|
☆ ✢ ✣ ✤ ✥ ✦ ✧ ✩ ✪ ✴ ✵ ✶ ✨ ✮ ✯ ✺ ✾ ❦ ☙ ❂ ❃ ❉ ✿ ❀ ❁ ☼ |
|
|
|
🌲 ☆ ✢ ✣ ✤ ✥ ✦ ✧ ✩ ✪ ✴ ✵ ✶ ✨ ✮ ✯ ✺ ✾ ❦ ☙ ❂ ❃ ❉ ✿ ❀ ❁ ☼ 🌕 |
|
|
|
); |
|
|
|
|
|
|
|
print $bullets[rand @bullets]; |