#!/usr/bin/perl use utf8; my $st = "“Quotes1” «Quotes2» ‘Quotes3’ 'Quotes4' \"Quotes5\""; $st =~ s/[\p{Pi}\p{Pf}'"]//g;
Standard input is empty
Before: “Quotes1” «Quotes2» ‘Quotes3’ 'Quotes4' "Quotes5" After: Quotes1 Quotes2 Quotes3 Quotes4 Quotes5
Wide character in print at prog.pl line 4.