Number can be expressed by ###_###_### for ###,###,###
#!/usr/bin/perl -w print 25_000_000, " ", -4, "\n";