Select Code to Download

use warnings;
use strict;
...
@deleted > 1 ? ($str .= 's: ') : ($str .= ': ');
$str .= join ', ', @deleted;
print $str;

Deleted forums: Entry 1, Entry 2, Entry 3