igal

#!/usr/bin/env perl 
use strict;
use warnings;
use feature qw{say};

sub bottles() { sprintf qq{%s bottle%s of beer}
               , $_ || 'No' 
               , $_==1 ? '' : 's'; 
               }
sub store()    { $_=99; qq{Go to the store, buy some more...\n}; }