timethese(1000000, { pack => q{ my $String = 'Russ is a stud'; $String = pack("A10", $String)}, substr => q{ my $String = 'Russ is a stud'; $String = substr($String, 0, 10)} });