open FH, "< $fname" or die "Cannot open datfile: ", $!;
    while (<FH>) {
        if (/"DESTINATION"/)
           {
        .
        .
        .