#!/usr/local/bin/perl

#!/usr/local/bin/perl

use strict ;
use warnings ;

use Benchmark ;

my $text = 'abcdffgjhjh' ;
my $pad = "\0" x 10 ;
my $pad2 = "\0" ;

timethese( shift || -2, {

		long => '$text | "\0\0\0\0\0\0\0\0\0\0"',
		short => '$text | "\0"',
		const => '$text | ("\0" x 10)',
		var => '$text | $pad',
		var_short => '$text | $pad2',
	}
) ;
