$status=~s/P|F|C|D|I/Posted/g;
$status=~s/A/Accepted/g;
$status=~s/N/New/g;
$status=~s/R/Rejected/g;
$status=~s/S/Save/g;
$status=~s/X/Canceled/g;

my @strings = split /\|/, $status;
my @sorted_strings = sort @strings;
print "<br><font color=red>@sorted_strings</font><br>";