bpb-kit/home/bin/fragment-bullet

#!/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];