Select Code to Download

use strict;
use warnings;
...
    print "characters ",length($chars),"\n";
}
}

start assets
characters 1
...
end media = 3
characters 1
end assets = 1