$ perl -MDevel::Size=total_size -E'say total_size("A" x 1024 x 1024 x 100)'
104857636

$ perl -MDevel::Peek -E'Dump("A" x 1024 x 1024 x 100)' 2>&1 | grep LEN
  LEN = 104857604