use Devel::Size qw(size total_size);
print size("A string");

42