#!/usr/bin/perl
use warnings;
use strict;
print 25_000_000, " ", -4, "\n";


expected output

25_000_000 -4

but getting

25000000 -4