You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
22 lines
472 B
22 lines
472 B
#!/usr/bin/env perl
|
|
|
|
# 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)';
|
|
|
|
use strict;
|
|
use warnings;
|
|
use 5.12.0;
|
|
|
|
my @bullets = qw(
|
|
🌲 ☆ ✢ ✣ ✤ ✥ ✦ ✧ ✩ ✪ ✴ ✵ ✶ ✨ ✮ ✯ ✺ ✾ ❦ ☙ ❂ ❃ ❉ ✿ ❀ ❁ ☼ 🌕
|
|
);
|
|
|
|
print $bullets[rand @bullets];
|