$ perl -le 'print scalar unpack "C/a*", pack "C/a*", "Test"'
    4