#!/usr/bin/perl

my $declon = -88.9999999999999999999;
my $declat = 44.1111111111111111111;

my @lon = split(/\./,"$declon");
my @lat = split(/\./,"$declat");

$lon[1]=substr($lon[1],0,6);
$lat[1]=substr($lat[1],0,6);

my $lat = join(@lat);
my $lon = join(@lon);

print "$lat\n";
print "$lon";