my %subst={ A => 'Accepted',
            N => 'New',
            R => 'Rejected',
            S => 'Save',
            X => 'Canceled' };
$subst{$_}='Posted' for qw/P F C D I/;
$status =~ s/[A-Z]/$subst{$&}||$&/ge;