*$ = sub{
	$a=q;}die;;
	sub u{
		$_;
	}
	$= && unpack u => u;
};
s[]{82G5S="!A;F]T:&5R(%!E<FP\@:&%C:V5R}six;
die &$ => $/;

##</code><code>##

*$=sub{
	unpack "u", $_;
};
$_='82G5S="!A;F]T:&5R(%!E<FP@:&%C:V5R';
die &$, $/;

##</code><code>##

die unpack ("u", '82G5S="!A;F]T:&5R(%!E<FP@:&%C:V5R'), $/;