Dotfiles, utilities, and other apparatus.
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
486 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];