Removing wide characters

TomG has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: Removing wide characters by GrandFather (Saint) on Dec 08, 2005 at 23:42 UTC
This may do what you want: `use warnings; use strict; my $str = do {local $/ = ''; <DATA>}; print $str . "\n"; $str =~ s/[^\x00-\x7f]//g; print $str; __DATA__ This € that` [download] Prints: `This € that This that` [download] DWIM is Perl's answer to Gödel	[reply] [d/l] [select]
Re^2: Removing wide characters by TomG (Initiate) on Dec 09, 2005 at 00:07 UTC
Thank you very much Grandfather and BorgCopyeditor. Both solutions were helpful and worked fine. Tom	[reply]
Re^2: Removing wide characters by Anonymous Monk on Oct 17, 2015 at 00:33 UTC
Very helpful... I found such a character in the column names of paypal transaction csvs... maddening until I found out just what was going on!	[reply]
Re^2: Removing wide characters by Anonymous Monk on Mar 08, 2020 at 07:52 UTC
Thanks a lot. This solved my problem. I was facing this problem from last 4 days.	[reply]
Re: Removing wide characters by BorgCopyeditor (Friar) on Dec 08, 2005 at 23:07 UTC
Assuming that by "wide characters," you mean "not ASCII," you could use \P{IsASCII} in your regexes. That said, you might have to do things differently depending on the charset in which the webpage is served. BCE --Your punctuation skills are insufficient!	[reply]
Re: Removing wide characters by Happy-the-monk (Canon) on Dec 08, 2005 at 22:43 UTC
I need to remove all the wide characters. From what I understand regexp doesn’t handle this. I don't know what you mean by "wide characters". You could illuminate the point by showing us what you have tried with regexen, or why you believe they cannot do what you are trying to do. Cheers, Sören	[reply]