foreach $day(@the_grind){
  chop($day), into pieces;
  while (pieces =~ /$faith/) {
    $day =~ tr/$faith/$hope/ || die;
  }
}
[download]