Result:
found more than 1015 distributions - search limited to the first 2001 files matching your query
( run in 2.857 )
Business-IBAN-Validator
view release on metacpan or search on metacpan
t/020-iban-auto.t view on Meta::CPAN
MN12 1234 1234 5678 9123,0
MR1300020001010000123456753,0
MR13 0002 0001 0100 0012 3456 753,0
MT84MALT011000012345MTLCAST001S,1
MT84 MALT 0110 0001 2345 MTLC AST0 01S,1
MU17BOMM0101101030300200000MUR,0
MU17 BOMM 0101 1010 3030 0200 000M UR,0
NI45BAPR00000013000003558124,0
NI45 BAPR 0000 0013 0000 0355 8124,0
NL91ABNA0417164300,1
NL91 ABNA 0417 1643 00,1
NO9386011117947,1
Business-KontoCheck
view release on metacpan or search on metacpan
1 LV80BANK0000435195001
1 MC9320041010050500013M02606
1 ME25505000012345678951
1 MK07300000000042425
1 MT84MALT011000012345MTLCAST001S
1 MU17BOMM0101101030300200000MUR
1 NL91ABNA0417164300
1 NO9386011117947
1 PL27114020040000300201355387
1 PL61109010140000071219812874
1 PT50000201231234567890154
BusyBird
view release on metacpan or search on metacpan
share/www/static/jquery.js view on Meta::CPAN
core_pnum = /[+-]?(?:\d*\.|)\d+(?:[eE][+-]?\d+|)/.source,
// Used for splitting on whitespace
core_rnotwhite = /\S+/g,
// Make sure we trim BOM and NBSP (here's looking at you, Safari 5.0 and IE)
rtrim = /^[\s\uFEFF\xA0]+|[\s\uFEFF\xA0]+$/g,
// A simple way to check for HTML strings
// Prioritize #id over <tag> to avoid XSS via location.hash (#9521)
// Strict HTML recognition (#11290: must start with <)
CAD-AutoCAD-Version
view release on metacpan or search on metacpan
iQIzBAEBAwAdFiEEbEiOwSagsghKcON6ojV9Rpe/B8sFAmWTOF0ACgkQojV9Rpe/
B8uowg/+MSigZX1YMbcNnz/KN7pf2axY/lFGkYNq0nk3RbcFK1SL82kf2pLdETHO
sZ1VybD44Vvcf7MBjK38YXLVBuI4rdi0i+yvBLdHX19ydG+cpJrwHj791me//pgk
zPqTc7LBPB+Aaipqb8jvGzr5Q6wpjaFDKCTGlAqlSMLItvUtAxpKJEZmjweOuv2b
VdduoQRBOMnwOoPEdCYYBHKyVcfGLzAGIxjrvqwg0BQbMkZ4jTjKTfw/O0zGueqc
jnsqD2lp6oefpQliQUvlx2/bFUxo4C1PP3KuEWK+4XPppP3OARHV5Gb/izPkGE22
Z+Rwp+5brBOyrH6HLdW6yTAmqWnl8K5Gjix+cXJ8zxa4OHrZZ6ZMNzkJqwn3J6zc
sxoZpAwlAyuuBU7pErgf61DhLD+gdlACsZT+YDXTw3fq5UGPW0MomkMQADYBX+e2
yXZHYR5Jw3T6oKsADfZR+Nrtqk/dwUA2dRm0aqvAbqMbC+gfF9CgsuiROnzhJ3io
YqXkhPtc1Nb1GOXEqwg1HFQdMMPN/Ob6yWJ6J4Gy3U+il8AEgRPf9vkQl4P6kg0S
CAD-Firemen
view release on metacpan or search on metacpan
corpus/config-checkConfig.cdb view on Meta::CPAN
BOEING_EXTRACT_BUNDLE ( -Aw )
{
YES
NO
}
BOM_FORMAT ( -Aw )
{
( -Fs )
}
BROWSER_FAVORITE ( -Aw )
{
CDB_File
view release on metacpan or search on metacpan
BmFLAGS|5.009005||Viu
BmPREVIOUS|5.003007||Viu
BmRARE|5.003007||Viu
BmUSEFUL|5.003007||Viu
BOL|5.003007||Viu
BOM_UTF8|5.025005|5.003007|p
BOM_UTF8_FIRST_BYTE|5.019004||Viu
BOM_UTF8_TAIL|5.019004||Viu
bool|5.003007||Viu
boolSV|5.004000|5.003007|p
boot_core_mro|5.009005||Viu
boot_core_PerlIO|5.007002||Viu
boot_core_UNIVERSAL|5.003007||Viu
#endif
#endif
#if 'A' == 65
#ifndef BOM_UTF8
# define BOM_UTF8 "\xEF\xBB\xBF"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xEF\xBF\xBD"
#endif
#elif '^' == 95
#ifndef BOM_UTF8
# define BOM_UTF8 "\xDD\x73\x66\x73"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x73\x73\x71"
#endif
#elif '^' == 176
#ifndef BOM_UTF8
# define BOM_UTF8 "\xDD\x72\x65\x72"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x72\x72\x70"
#endif
CDDB
view release on metacpan or search on metacpan
t/000-report-versions.t view on Meta::CPAN
return $self->_error("Did not provide a string to load");
}
# Byte order marks
# NOTE: Keeping this here to educate maintainers
# my %BOM = (
# "\357\273\277" => 'UTF-8',
# "\376\377" => 'UTF-16BE',
# "\377\376" => 'UTF-16LE',
# "\377\376\0\0" => 'UTF-32LE'
# "\0\0\376\377" => 'UTF-32BE',
# );
if ( $string =~ /^(?:\376\377|\377\376|\377\376\0\0|\0\0\376\377)/ ) {
return $self->_error("Stream has a non UTF-8 BOM");
} else {
# Strip UTF-8 bom if found, we'll just ignore it
$string =~ s/^\357\273\277//;
}
CFDI
view release on metacpan or search on metacpan
lib/CFDI/Parser/XML.pm view on Meta::CPAN
local $_ = '';
die "cannot access file $file$/" unless -e $file && -r _;
open(XML,'<:encoding(UTF-8)',$file) or die "cannot open file $file as UTF-8: $!$/";
my ($t,$squote,$dquote,$cmntOpen,$char,$buf,@tokns,$dec,$hasTags) = (0,0,0,0);
local $SIG{__DIE__} = sub {close XML or warn "cannot close file $file: $!$/"};
my ($chars,$buffer,$BOM);
die "file required$/" unless defined $file;
die "cannot access file $file$/" unless -e $file && -r _;
$chars = sysread XML,$buffer,1;
die "error reading first char$/" unless defined $chars;
die "file $file is empty$/" unless $chars;
$BOM = 65279 == ord $buffer ? 1 : 0;
local $_;
# RD1: $chars = sysread XML,$buffer,1;
# die "error reading file $file$/" unless defined $chars;
# die "parsing error at: $_$/" unless $chars;
# $_ .= $buffer;
lib/CFDI/Parser/XML.pm view on Meta::CPAN
# if(!defined $attr{standalone} || $attr{standalone} !~ /^(?:yes|no)$/){
# die "standalone error declaration$/"}}
# if(exists $attr{encoding}){
# die "encoding error declaration$/" if !defined $attr{encoding} || $attr{encoding} !~ m!^UTF[-_ /]?8$!i}
# $dec = bless \@attr,DECLARATION;
my ($buffer2,$buffer1) = ($BOM ? '' : $buffer);
while(length($buffer2) || ($char = sysread XML,$buffer1,$BUFLEN) || length){
if(length $buffer2){
$char = 0;
}elsif($char){
$buffer2 = $buffer1;
CIAO-Lib-Param
view release on metacpan or search on metacpan
bind_match|5.003007||Viu
block_end|5.004000|5.004000|
block_gimme|5.004000|5.004000|u
blockhook_register|5.013003|5.013003|x
block_start|5.004000|5.004000|
BOM_UTF8|5.025005|5.003007|p
boolSV|5.004000|5.003007|p
boot_core_mro|5.009005||Viu
boot_core_PerlIO|5.007002||Viu
boot_core_UNIVERSAL|5.003007||Viu
_byte_dump_string|5.025006||cViu
#endif
#endif
#if 'A' == 65
#ifndef BOM_UTF8
# define BOM_UTF8 "\xEF\xBB\xBF"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xEF\xBF\xBD"
#endif
#elif '^' == 95
#ifndef BOM_UTF8
# define BOM_UTF8 "\xDD\x73\x66\x73"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x73\x73\x71"
#endif
#elif '^' == 176
#ifndef BOM_UTF8
# define BOM_UTF8 "\xDD\x72\x65\x72"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x72\x72\x70"
#endif
CLI-Popt
view release on metacpan or search on metacpan
easyxs/ppport.h view on Meta::CPAN
BOL_t8_p8|5.033003||Viu
BOL_t8_pb|5.033003||Viu
BOL_tb|5.035004||Viu
BOL_tb_p8|5.033003||Viu
BOL_tb_pb|5.033003||Viu
BOM_UTF8|5.025005|5.003007|p
BOM_UTF8_FIRST_BYTE|5.019004||Viu
BOM_UTF8_TAIL|5.019004||Viu
boolSV|5.004000|5.003007|p
boot_core_builtin|5.035007||Viu
boot_core_mro|5.009005||Viu
boot_core_PerlIO|5.007002||Viu
boot_core_UNIVERSAL|5.003007||Viu
easyxs/ppport.h view on Meta::CPAN
#endif
#endif
#if 'A' == 65
#ifndef BOM_UTF8
# define BOM_UTF8 "\xEF\xBB\xBF"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xEF\xBF\xBD"
#endif
#elif '^' == 95
#ifndef BOM_UTF8
# define BOM_UTF8 "\xDD\x73\x66\x73"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x73\x73\x71"
#endif
#elif '^' == 176
#ifndef BOM_UTF8
# define BOM_UTF8 "\xDD\x72\x65\x72"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x72\x72\x70"
#endif
CLI-Startup
view release on metacpan or search on metacpan
Debian_CPANTS.txt view on Meta::CPAN
"libfax-hylafax-client-perl", "Fax-Hylafax-Client", "1.02", "0", "0"
"libfcgi-perl", "FCGI", "0.71", "1", "1"
"libfcgi-procmanager-perl", "FCGI-ProcManager", "0.19", "0", "0"
"libfeed-find-perl", "Feed-Find", "0.07", "0", "1"
"libfile-basedir-perl", "File-BaseDir", "0.03", "0", "1"
"libfile-bom-perl", "File-BOM", "0.14", "0", "0"
"libfile-changenotify-perl", "File-ChangeNotify", "0.20", "0", "0"
"libfile-chmod-perl", "File-chmod", "0.32", "0", "0"
"libfile-copy-link-perl", "File-Copy-Link", "0.112", "0", "0"
"libfile-copy-recursive-perl", "File-Copy-Recursive", "0.38", "1", "0"
"libfile-counterfile-perl", "File-CounterFile", "1.04", "0", "0"
CLI-TextLines-Utils
view release on metacpan or search on metacpan
alluniq -- Is every line different from others? If not, how many are $n$-plet occur for each $n$?
idmaker -- Identical numbers are attached to each line. Same ID for the same line contents.
shuffler -- shuffles the lines randomly. With options of taking $n$ lines from the top.
hashtotal -- Calculates the total sum of the first 4 bytes of SHA1 of each line.
ngram -- character-wise $n$-gram ranking (experimental; not fully implemented as planed).
utf8bom -- you can check the existence and add/delete UTF-8 BOM on files.
digitdist -- Enables to see the concrete values based on lengths and character positions.
INSTALLATION
To install this module, run the following commands:
CORBA-IDLtree
view release on metacpan or search on metacpan
lib/CORBA/IDLtree.pm view on Meta::CPAN
#
# 2.04 2020/06/20 * In sub Parse_File_i case $file case $emucpp open $in
# with encoding(UTF-8) to ensure that IDL files are parsed
# as utf8.
# * New sub discard_bom discards a possible Unicode or UTF-8
# BOM (Byte Order Mark) at the start of the given line.
# In sub get_items add optional argument $firstline.
# If $firstline is given and true then discard_bom will be
# called on the first line read from file.
# In sub Parse_File_i outer while-loop add local
# $firstline for call to sub get_items.
lib/CORBA/IDLtree.pm view on Meta::CPAN
# For #elif, the count remains the same.
}
error "skip_input: fell off end of file";
}
# If the given line begins with the Unicode or UTF-8 BOM (Byte Order Mark) then
# discard the BOM in the returned line.
sub discard_bom {
my $line = shift;
if (length($line) > 2) {
# Check for UTF-8 BOM (Byte Order Mark) 0xEF,0xBB,0xBF
my $ord0 = ord(substr($line, 0, 1));
if ($ord0 == 0xFEFF) {
$line = substr($line, 1); # Unicode
} elsif ($ord0 == 0xEF) {
my $ord1 = ord(substr($line, 1, 1));
CPAN-Command
view release on metacpan or search on metacpan
t/000-report-versions.t view on Meta::CPAN
return $self->_error("Did not provide a string to load");
}
# Byte order marks
# NOTE: Keeping this here to educate maintainers
# my %BOM = (
# "\357\273\277" => 'UTF-8',
# "\376\377" => 'UTF-16BE',
# "\377\376" => 'UTF-16LE',
# "\377\376\0\0" => 'UTF-32LE'
# "\0\0\376\377" => 'UTF-32BE',
# );
if ( $string =~ /^(?:\376\377|\377\376|\377\376\0\0|\0\0\376\377)/ ) {
return $self->_error("Stream has a non UTF-8 BOM");
} else {
# Strip UTF-8 bom if found, we'll just ignore it
$string =~ s/^\357\273\277//;
}
CPAN-Diff
view release on metacpan or search on metacpan
cpanfile.snapshot view on Meta::CPAN
PPI::Structure::Unknown 1.220
PPI::Structure::When 1.220
PPI::Token 1.220
PPI::Token::ArrayIndex 1.220
PPI::Token::Attribute 1.220
PPI::Token::BOM 1.220
PPI::Token::Cast 1.220
PPI::Token::Comment 1.220
PPI::Token::DashedWord 1.220
PPI::Token::Data 1.220
PPI::Token::End 1.220
CPAN-Meta-YAML
view release on metacpan or search on metacpan
lib/CPAN/Meta/YAML.pm view on Meta::CPAN
}
# Ensure Unicode character semantics, even for 0x80-0xff
utf8::upgrade($string);
# Check for and strip any leading UTF-8 BOM
$string =~ s/^\x{FEFF}//;
# Check for some special cases
return $self unless length $string;
CPAN-SQLite
view release on metacpan or search on metacpan
t/000-report-versions.t view on Meta::CPAN
return $self->_error("Did not provide a string to load");
}
# Byte order marks
# NOTE: Keeping this here to educate maintainers
# my %BOM = (
# "\357\273\277" => 'UTF-8',
# "\376\377" => 'UTF-16BE',
# "\377\376" => 'UTF-16LE',
# "\377\376\0\0" => 'UTF-32LE'
# "\0\0\376\377" => 'UTF-32BE',
# );
if ( $string =~ /^(?:\376\377|\377\376|\377\376\0\0|\0\0\376\377)/ ) {
return $self->_error("Stream has a non UTF-8 BOM");
} else {
# Strip UTF-8 bom if found, we'll just ignore it
$string =~ s/^\357\273\277//;
}
CPAN-Testers-WWW-Statistics
view release on metacpan or search on metacpan
t/data/cpanstats-test.json view on Meta::CPAN
{"test":{"count":{"entries":100,"reports":100,"posters":"182","distros":0},"pass":{"MacPPC":{"5.4.0":{"all":{"Net-Whois":1,"URI":1,"Storable":1,"Mac-Conversions":1,"Digest-MD5":1}}},"PA-RISC1.1":{"5.5.3":{"all":{"DBD-Oracle":1,"Curses":1}},"5.4.4":{"...
CPAN
view release on metacpan or search on metacpan
information but honour it. DONE in rev. 952
* Todo: do the right thing with prereq "perl". Find modules suited for
testing.
"5.8.3" : File-BOM-0.12, XML-DOM-Lite-0.08, Business-ReportWriter-0.09
">= 5.8.0" : Devel-FIXME-0.01
">= 5.008" : Data-Visitor-0.05
the file that lynx sends us and heuristically decide if it is an error
message. FIXED in revision 477.
2006-01-25 Andreas J. Koenig <andreas.koenig.gmwojprw@franz.ak.mind.de>
* Bug: META.yml may contain build_requires which for example File::BOM
specifies. It doesn't matter that I believe that it is not a
build_requires, it is really a requires because only tests fail, not the
build process. But I must merge the two hashes. FIXED in rev. 471
* Foreign bug: YAML with bleadperl fails a test which succeeds with
CPANPLUS-YACSmoke
view release on metacpan or search on metacpan
lib/CPANPLUS/YACSmoke/IniFiles.pm view on Meta::CPAN
seek $fh, -1, 1;
}
}
}
# If there's a UTF BOM (Byte-Order-Mark) in the first
# character of the first line then remove it before processing
# (http://www.unicode.org/unicode/faq/utf_bom.html#22)
s/^//;
return $_;
CPANPLUS
view release on metacpan or search on metacpan
inc/bundle/CPAN/Meta/YAML.pm view on Meta::CPAN
}
# Ensure Unicode character semantics, even for 0x80-0xff
utf8::upgrade($string);
# Check for and strip any leading UTF-8 BOM
$string =~ s/^\x{FEFF}//;
# Check for some special cases
return $self unless length $string;
CPANfile-Parse-PPI
view release on metacpan or search on metacpan
}
},
"develop" : {
"requires" : {
"Pod::Coverage::TrustPod" : "0",
"Test::BOM" : "0",
"Test::More" : "0.88",
"Test::NoTabs" : "0",
"Test::Perl::Critic" : "0",
"Test::Pod" : "1.41",
"Test::Pod::Coverage" : "1.08"
CPP-Boost-Mini
view release on metacpan or search on metacpan
include/boost/callable_traits/add_member_const.hpp view on Meta::CPAN
*/
template<typename T>
using add_member_const_t = //see below
//<-
#ifdef BOOST_CLBL_TRTS_DISABLE_ABOMINABLE_FUNCTIONS
detail::sfinae_try<
typename detail::traits<T>::add_member_const,
detail::fail_when_same<typename detail::traits<T>::add_member_const,
include/boost/callable_traits/add_member_const.hpp view on Meta::CPAN
detail::try_but_fail_if_invalid<
typename detail::traits<T>::add_member_const,
member_qualifiers_are_illegal_for_this_type>;
#endif // #ifdef BOOST_CLBL_TRTS_DISABLE_ABOMINABLE_FUNCTIONS
namespace detail {
template<typename T, typename = std::false_type>
struct add_member_const_impl {};
CSAF
view release on metacpan or search on metacpan
lib/CSAF/resources/cache/09c932cd025cb0f5110be89389cfe6fc view on Meta::CPAN
"format": "uri",
"pattern": "^pkg:[A-Za-z\\.\\-\\+][A-Za-z0-9\\.\\-\\+]*/.+",
"minLength": 7
},
"sbom_urls": {
"title": "List of SBOM URLs",
"description": "Contains a list of URLs where SBOMs for this product can be retrieved.",
"type": "array",
"minItems": 1,
"items": {
"title": "SBOM URL",
"description": "Contains a URL of one SBOM for this product.",
"type": "string",
"format": "uri"
}
},
"serial_numbers": {
CSS-Croco
view release on metacpan or search on metacpan
Debian_CPANTS.txt view on Meta::CPAN
"libfax-hylafax-client-perl", "Fax-Hylafax-Client", "1.02", "0", "0"
"libfcgi-perl", "FCGI", "0.67", "3", "0"
"libfcgi-procmanager-perl", "FCGI-ProcManager", "0.18", "0", "0"
"libfeed-find-perl", "Feed-Find", "0.06", "0", "0"
"libfile-basedir-perl", "File-BaseDir", "0.03", "0", "0"
"libfile-bom-perl", "File-BOM", "0.14", "0", "0"
"libfile-changenotify-perl", "File-ChangeNotify", "0.10", "0", "0"
"libfile-chmod-perl", "File-chmod", "0.32", "0", "0"
"libfile-copy-recursive-perl", "File-Copy-Recursive", "0.38", "0", "0"
"libfile-counterfile-perl", "File-CounterFile", "1.04", "0", "0"
"libfile-desktopentry-perl", "File-DesktopEntry", "0.04", "1", "0"
CSS-DOM
view release on metacpan or search on metacpan
lib/CSS/DOM.pm view on Meta::CPAN
document (e.g., <link charset="..."> or an HTML document's own encoding),
if available/applicable, should be used. In this case, you should use the
C<< encoding_hint >> option, so that CSS::DOM has something to fall back
to.
If you use C<< decode => 1 >> with no encoding hint, and no BOM or @charset
is to be found, UTF-8 is assumed.
=head1 SYNTAX ERRORS
The two constructors above, and also
CSV-Reader
view release on metacpan or search on metacpan
lib/CSV/Reader.pm view on Meta::CPAN
# Create reader from file name:
my $reader = new CSV::Reader('/path/to/file.csv');
# Create reader from a file handle (GLOB):
open(my $h, '<', $filename) || die("Failed to open $filename: $!");
# or preferred method that can handle files having a UTF-8 BOM:
open(my $h, '<:via(File::BOM)', $filename) || die("Failed to open $filename: $!");
my $reader = new CSV::Reader($h);
# Create reader from an IO::Handle based object:
my $io = IO::File->new(); # subclass of IO::Handle
$io->open($filename, '<:via(File::BOM)') || die("Failed to open $filename: $!");
my $reader = new CSV::Reader($io);
# Create reader with advanced options:
my $reader = new CSV::Reader('/path/to/file.csv',
'delimiter' => ';',
lib/CSV/Reader.pm view on Meta::CPAN
=head2 new($file, %options)
Constructor.
$file can be a string file name, an open file handle (GLOB), or an IO::Handle based object (e.g. IO::File or IO::Scalar).
If a string file name is given, then the file is opened via File::BOM.
The following %options are supported:
- debug: boolean, if true, then debug messages are emitted using warn().
- field_aliases: hashref of case insensitive alias (in file) => real name (as expected in code) pairs.
lib/CSV/Reader.pm view on Meta::CPAN
$self->{'own_h'} = 0;
}
else {
my $h;
eval {
require File::BOM;
};
my $mode = $@ ? '<' : '<:via(File::BOM)';
$options{'debug'} && warn(__PACKAGE__ . "::new file open mode is $mode\n");
open($h, $mode, $file) || croak('Failed to open "' . $file . '" for reading using mode "' . $mode . '": ' . $!);
$self->{'h'} = $h;
$self->{'own_h'} = 1;
}
Cache-Memcached-Fast
view release on metacpan or search on metacpan
? 0 \
: UTF8SKIP(s))
#endif
#endif
#if 'A' == 65
#ifndef BOM_UTF8
#define BOM_UTF8 "\xEF\xBB\xBF"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
#define REPLACEMENT_CHARACTER_UTF8 "\xEF\xBF\xBD"
#endif
#elif '^' == 95
#ifndef BOM_UTF8
#define BOM_UTF8 "\xDD\x73\x66\x73"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
#define REPLACEMENT_CHARACTER_UTF8 "\xDD\x73\x73\x71"
#endif
#elif '^' == 176
#ifndef BOM_UTF8
#define BOM_UTF8 "\xDD\x72\x65\x72"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
#define REPLACEMENT_CHARACTER_UTF8 "\xDD\x72\x72\x70"
#endif
#else
( run in 2.857 seconds using v1.01-cache-2.11-cpan-f29a10751f0 )