http://qs321.pair.com?node_id=602123


in reply to Null-stripping performance

I'd recommend:
$value = unpack "x$index Z4", $string;

[download]
or 
$value = substr($string, $index, 4);
$value =~ y/\0//d;

[download]

In Section Seekers of Perl Wisdom