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