view release on metacpan or  search on metacpan

lib/Acme/Tanasinn.pm  view on Meta::CPAN

	my $string = shift;
	
	my @replace_range = 1..3;

	my $pos  = 0;
	my $step = '';

	while(1)
	{
		return $string if $pos >= length($string);

		my $count = $replace_range[rand(@replace_range)];

		for(1..$count)
		{
			$step .= "\x{2235}";
		}
			
		substr($string,	$pos, length($step), $step);

		$pos += length($step) + $replace_range[rand(@replace_range)];

	}

}


=head1 AUTHOR

The Elitist Superstructure of DQN, L<http://4-ch.net/dqn/>