5000 Elefantes (Perl)

El codigo a continuacion muestra en la pantalla la letra de la cancion infantil.  Perl no es exactamente mi fuerte, por lo que el codigo no es muy elegante.  Sin embargo, funciona.

#!/usr/bin/env perl
#milochomil elefantes (by Jon Tohrs)
#send me money -_-
$nElephants = $ARGV[0];
$nElephants = 5000 if $nElephants eq '' || $nElephants < 0;

foreach (1 .. $nElephants) {
    $s = ($_ == 1) ? "" : "s";
    $n = ($_ == 1) ? "" : "n";
    $r = ($_ == 1) ? "" : "ron";    
    print "\n$_ elefante$s\n";
    print "se comlumpiaba$n\n";
    print "sobre la tela\n";
    print "de una araña\n";
    print "como veia$n\n";
    print "que resistia\n";
    print "fue$r a llamar\n";
    print "a otro elefante...\n";
}
print "\n *y asi hasta el infinito* \n";