sub prematch {
	return unpack "a$-[0]", $_[0];
}

sub postmatch {
	return unpack "x$+[0] a*", $_[0];
}

sub match {
	my $len = $+[0] - $-[0];
	unpack "x$-[0] a$len", $_[0];
}