#!/usr/bin/perl -pi

s/(\d+)$/
   $1 >= 4_000_000_000
      ? $1
      : "$1 <---- LOW!"
   ;
/;