in reply to ascii problem

Just because... 
my $bs;
$bs = qr{ . (??{ $bs })? \cH }x;
$str =~ s/$bs//g;

[download]
Jeff japhy Pinyan, P.L., P.M., P.O.D, X.S.: Perl, regex, and perl hacker
How can we ever be the sold short or the cheated, we who for every service have long ago been overpaid? ~~ Meister Eckhart

Replies are listed 'Best First'.
Re^2: ascii problem
by chibiryuu (Beadle) on Jun 02, 2006 at 16:20 UTC
    And more "Just because..." 
    $str =~ s/((?>[^\cH]*))((?>\cH+))/substr $1, 0, length($1) - length($2
+)/eg;

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom