2nd perl5/Bob submission