Re^4: replace string

The input is

&lt;b&gt;&lt;/b&gt;Officially called &lt;&gt;&ldquo;events,&rdquo;&lt;
+/a&gt; as &quot;never events&quot;
[download]

the string should be converted to

&lt;b&gt;&lt;/b&gt;Officially called &lt;&gt;&#8220;events,&#8221;&lt;
+/a&gt;as &quot;never events&quot;
[download]

How can I convert only such characters.

Comment on Re^4: replace string Select or Download Code

Replies are listed 'Best First'.
Re^5: replace string by ig (Vicar) on May 18, 2009 at 10:43 UTC
`use strict; use warnings; my $input = "<b></b>Officially called <>“event +s,”</a> as "never events""; print "input: $input\n"; $input =~ s/“/“/g; # change the lines $input =~ s/”/”/gi; $input =~ s/’/’/gi; print "processed input: $input\n";` [download] produces `input: <b></b>Officially called <>“events,&rdq +uo;</a> as "never events" processed input: <b></b>Officially called <>“e +vents,”</a> as "never events"` [download] This was done using your REs and appears to provide the output you are looking for.	[reply] [d/l] [select]
Re^5: replace string by Anonymous Monk on May 18, 2009 at 10:42 UTC
Better idea would be to provide hex dump of data, so we know what the actual bytes are `echo \|hexdump 00000000: 45 43 48 4F 20 69 73 20 - 6F 6E 2E 0D 0A \|ECHO is o +n. \| 0000000d;` [download] or `echo \|od -tx1 0000000 45 43 48 4f 20 69 73 20 6f 6e 2e 0d 0a 0000015` [download]	[reply] [d/l] [select]