Help for this page
Select Code to Download
Select
or
download this
if (($derange ^ $string) !~ /\0/) { print "'$derange' is a derangement\n"; }