$ perl -e '$foo="I50a150";print length(pack $foo),$/' 
350
$