Select Code to Download

my @strings = split /\|/, $status;

{
   local $" = "|";
   print "<br><font color=red>@sorted_strings</font><br>";
}

my %subst (
   P => 'Posted',
...
#    push @strings, $subst{$_}
# }
# my @sorted_strings = sort @strings;