Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

Exception from a character class

by pirkil (Beadle)
on May 30, 2013 at 10:38 UTC ( #1036022=perlquestion: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    my $text = q{"This is dad's car." "OK", he said.};
    $text =~ s{\p{Punct}}{}xmsg;
    
  2. or download this
    $text =~ s{(?<!dad)\p{Punct}}{}xmsg;