use strict;
use warnings;
my @bbcodes = ( "u", "o", "sup", "sub", "s", "i", "b", "code" );
my @chars = split(//, $ARGV[0]);
foreach (@chars) {
print &fibrs($_);
}
print "\n";
sub fibrs {
my $elem = $bbcodes[rand @bbcodes];
my $composed = "[" . $elem . "]" . $_[0] . "[/" . $elem . "]";
}