Text::Striphigh - Perl extension to strip the high bit off of ISO-8859-1 text.
use Text::Striphigh 'striphigh'
$SevenBitsText = striphigh($TextContainingEightBitCharacters);
The Text::Striphigh module exports a single function:
Because of precisely the deficiency this package tries to offer a workaround for is present in some of the things that process pod, there are no examples in this manpage. Look at the source or the test script if you want examples.
If you ever want to change the striphigh function yourself, then don't
change the one containing the mile long
After you've done that, simply run the
perl -w Striphigh.pm > Striphigh.pm.new mv Striphigh.pm.new Striphigh.pm
Assumes the input text is ISO-8859-1, without even looking at the LOCALE settings.
Some translations are probably less than optimal.
People will be offended if you run their names through this function, and print the result on an envelope using an outdated printing device. However, it's probably better than having that printer print a name with a high ASCII character in it which happens to be the command to set the printer on fire.
Jan-Pieter Cornet <firstname.lastname@example.org>