#!/usr/bin/perl
use strict;
use warnings;
use Data::Dump qw(pp);
use Data::Dumper;
$|=1;

while (my $line = <DATA>)
{
   process_record ($line) if $line =~ /^<CALL/;
}

sub process_record
{
   my $line = shift;
   chomp $line; 
   my $data = $line;
   
   while ( $line = <DATA>)
   {
      last if $line =~ /^<EOR/;
      chomp $line;
      $data .= $line;
   }
   
   my %hash = $data =~ /<(\w+):\d+>([\w. ]+)/g;
   
   print_Cabrillo_QSO (\%hash);   
}

sub print_Cabrillo_QSO
{
    my $Qref = shift;
    
    print "QSO:  ";
    my $freq = $Qref->{FREQ}*100;
    $freq = int $freq;
    printf "%i6 ",$freq;
    print "PH ";
    my $date = $Qref->{QSO_DATE}; # 29180504 => 2019-05-04
    $date =~ s/(\d\d\d\d)(\d\d)(\d\d)/$1-$2-$3/;
    print "$date ";
    my $time = $Qref->{TIME_ON};
    $time =~ s/^(\d\d\d\d).*/$1/;
    print "$time ";
    print "W7RN          59 NVSTO ";
    printf "%15s ",$Qref->{CALL};
    print "59 ";
    $Qref->{COMMENT}=~ s/ +//g; #assume next field is <
    print $Qref->{COMMENT};
   # my $qth = $Qref->{QTH};
    #$qth //= '';
    #print $qth;
    
    print "\n";
}

=Prints
QSO:  3816 PH 2019-05-05 0659 W7RN          59 NVSTO           W6LVW 59 CO
QSO:  3816 PH 2019-05-05 0657 W7RN          59 NVSTO           K7CAR 59 UTWSH
=cut


__DATA__
This ADIF file was created by MacLoggerDX
<PROGRAMID:11>MacLoggerDX<PROGRAMVERSION:4>6.22<ADIF_VER:5>3.0.7
<EOH>

<CALL:5>W6LVW<NAME:18>Michael J Sparling<QTH:8>MONUMENT<STATE:2>CO<CNTY:7>El Paso<QSO_DATE:8>20190505<TIME_ON:6>065952<QSO_DATE_OFF:8>20190505<TIME_OFF:6>070013
<FREQ_RX:5>3.816<FREQ:5>3.816<BAND:3>80M<BAND_RX:3>80M<MODE:3>SSB<SUBMODE:3>LSB
<TX_PWR:3>100<ANT_AZ:4>86.8<RST_SENT:2>59<RST_RCVD:2>59
<DXCC:3>291<COUNTRY:13>United States<GRIDSQUARE:6>DM79nb<LAT:11>N039 04.562<LON:11>W104 53.096
<MY_GRIDSQUARE:6>DM09ei<OPERATOR:4>K5XI<MY_RIG:11>Elecraft K3<COMMENT:2>CO<EMAIL:19>mickspa@comcast.net
<EOR>

<CALL:5>K7CAR<NAME:13>Kent B O Sell<QTH:9>Hillsboro<STATE:2>OR<CNTY:10>Washington<QSO_DATE:8>20190505<TIME_ON:6>065758<QSO_DATE_OFF:8>20190505<TIME_OFF:6>065814
<FREQ_RX:5>3.816<FREQ:5>3.816<BAND:3>80M<BAND_RX:3>80M<MODE:3>SSB<SUBMODE:3>LSB
<TX_PWR:3>100<ANT_AZ:3>124<RST_SENT:2>59<RST_RCVD:2>59<QSL_VIA:10>eQSL, LoTW
<DXCC:3>291<COUNTRY:13>United States<GRIDSQUARE:6>DM44ik<LAT:11>N034 25.359<LON:11>W111 19.869
<MY_GRIDSQUARE:6>DM09ei<OPERATOR:4>K5XI<MY_RIG:11>Elecraft K3<COMMENT:6>UT WSH<EMAIL:17>kent@premier1.net
<EOR>