Select Code to Download

#!/usr/bin/perl -w
use strict;
...
-----
Result:
eight thousand five hundred ninety seven

  if($data=~/(\-?)\s*(\d+)/){

my $string=spell_number('1000000000000000'); #this works
my $string=spell_number(1000000000000000); #this doesNOT