use strict;
use warnings;
my %tags = (
    91 => "\N{FULL STOP}",          # '.'
    92 => "\N{APOSTROPHE}",         # '''
    93 => "\N{COMMA}",              # ','
    94 => "\N{EXCLAMATION MARK}",   # '!'
);
my $line =
    'Text with unusual punctuation<91><91><91>'
   .'I<92>m not going to lie<93> this is odd text<94>'
;

$line =~ s/<(\d\d)>/$tags{$1}/ge;

print $line, "\n";