document.write('
Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. sub DigitMorph {
  2.     my ($digit, $form1, $form2, $form3, $ZeroForm) = @_;
  3.     my $wrd;
  4.     if ($digit < 1) {
  5.         $wrd = $ZeroForm
  6.     } else {
  7.         $wrd = $digit
  8.     }
  9.     my $n = abs($digit) % 100;
  10.     my $n1 = $digit % 10;
  11.     if ($n > 10 && $n < 20) {
  12.         return $wrd.\' \'.$form3
  13.     } elsif ($n1 > 1 && $n1 < 5) {
  14.         return $wrd.\' \'.$form2
  15.     } elsif ($n1 == 1) {
  16.         return $wrd.\' \'.$form1
  17.     } elsif (($digit > 0) or (($digit < 1) and ($ZeroForm))) {
  18.         return $wrd.\' \'.$form3
  19.     }
  20. }
');