http://www.perlmonks.org?node_id=760901

Well, oftentimes when pulling data from somewhere, you will need to humanize booleans... not everyone is a Mork from Ork!
sub torf { my($val, $true_word, $false_word)=@_; $true_word ||= 'Yes' ; $false_word ||= 'No' ; $val ? $true_word : $false_word ; }