NAME

Unicode::NoFancyPants - Remove fancy Unicode characters, replacing them with ASCII equivalents.

SYNOPSIS

use Unicode::NoFancyPants;

my $ascii_text = Unicode::NoFancyPants::dropFancyPants("Hello, “world”!");
print $ascii_text; # Output: Hello, "world"! :-)

# Or, with the exported function:
use Unicode::NoFancyPants qw(dropFancyPants);
my @ascii_texts = dropFancyPants("Fancy String 1", "Fancy String 2");
print join("\n", @ascii_texts);

DESCRIPTION

This module provides a function, dropFancyPants, that takes Unicode text and returns a version with "fancy" characters replaced by their closest ASCII equivalents. It handles:

* Fancy quotes and dashes. * Emoji (converting them to basic ASCII smileys where possible). * Other Unicode symbols (using Text::Unidecode).

FUNCTIONS

dropFancyPants($text | @texts)

Takes either a single Unicode string or a list of Unicode strings and returns the corresponding ASCII-converted string(s).

$text

A Unicode string to be processed.

@texts

A list of Unicode strings to be processed.

EXAMPLES

use Unicode::NoFancyPants qw(dropFancyPants);

my $result = dropFancyPants("This is a test—with “fancy” quotes! 😊");
print $result; # Output: This is a test-with "fancy" quotes! :-)

my @results = dropFancyPants("String 1: 😃", "String 2: 😞");
print join("\n", @results); # Output: String 1: :-D\nString 2: :-(

DEPENDENCIES

* Unicode::Normalize * Text::Unidecode

AUTHOR

Nobody <nobody-spam-me@turing-trust.com>

LICENSE

Artistic License 2.0