Select Code to Download

#!/usr/bin/perl -sT
use strict;
...
my ( $before_dot, $after_dot ) = split /\./, $res;
$before_dot =~ s/(\d{1,3}?)(?=(\d{3})+$)/$1 /g;
printf "%s = %s.%s\n", $expr, $before_dot, $after_dot // 0;