($degrees, $minutes, $seconds) = $ARGV[0] =~ /(\d{3})(?:\.(\d{2}))?(?:\.(\d{2}(\.\d)?))?/;
printf "%3d   degrees\n", $degrees;
if ($minutes) {
  printf "%3d   minutes\n", $minutes;
}
else {
  printf "%3d   minutes\n", 0;
}
if ($seconds) {
  printf "%5.1f seconds\n", $seconds;
}
else {
  printf "%3d   seconds\n", 0;
}