sub invcipher
{
	my $i = shift(@_);
	# damn the error checking, full speed ahead
	@o = split(//,'--------------------------');
	$a = ord('a');
	$l = 0;
	foreach$c(split(//,$i)){$o[ord($c)-$a]=chr($a+$l++);}
	return join('',@o);
}
print invcipher("hlovecraftbdgijkmnpqsuwxyz");
print "\n\n";
print invcipher("hkfleimanopbqrcstgujvdwxyz");
#bpwamepwlwvwbtmizvnzwuxiabkqxpmzaizmlwwumlbwlmkwlmbpmuioiqv