cat test2.pl
#!/usr/bin/perl

use strict;
use warnings;
use Cwd;
use File::Basename;
use List::Util qw(min max);
use Math::Round;
use Sort::Key::Natural qw(natsort);
use Storable 'dclone';
use Sys::Hostname;
use Term::ANSIColor;

print "decimal places: ".length(("1" =~ /\.(\d*)/)[0])."\n";
print "decimal places: ".length(("0.123" =~ /\.(\d*)/)[0])."\n";

my $line = "apple=";
my $second_part = (split(/=/, $line))[1];
my $second_part_components_count = (length $second_part > 0 ? scalar (split(/;/, $second_part)) : 0);

print "done\n";


cat test3.pl 
#!/usr/bin/perl

use strict;
use warnings;
use Cwd;
use File::Basename;
use List::Util qw(min max);
use Math::Round;
use Sort::Key::Natural qw(natsort);
use Storable 'dclone';
use Sys::Hostname;
use Term::ANSIColor;
require "test3_utils.pl";

do_foo();
do_bar();

print "done\n";


cat test3_utils.pl 
#!/usr/bin/perl

sub do_foo
{
	print "decimal places: ".length(("1" =~ /\.(\d*)/)[0])."\n";
	print "decimal places: ".length(("0.123" =~ /\.(\d*)/)[0])."\n";
}

sub do_bar
{
	my $line = "apple=";
	my $second_part = (split(/=/, $line))[1];
	my $second_part_components_count = (length $second_part > 0 ? scalar (split(/;/, $second_part)) : 0);
}

1; # need to end with a true value