use warnings;
use strict;

my $str = rand(12);
my $len = length($str);

print '+', '-' x $len, "+\n|$str|\n+", '-' x $len, "+\n";