Help for this page

Select Code to Download

Select or download this

sub commify {
   my $text = reverse $_[0];
   $text =~ s/(\d{3})(?=\d)(?!\d*\.)/$1,/g;
   return scalar reverse $text;
}

Select or download this
```
if ($beta =~ /tar.gz\z/) { ...
```