Select Code to Download

use warnings;
use Devel::Size qw(size);
...
$num = int("123");

print size($str), " ", size($num), "\n";