#!/bin/perl

use strict;
use warnings; 
use diagnostics;

#accept both formats: labels.txt and [filename].aup

while(<DATA>) {
    chomp;
    my($l0,$start,$l1,$end,$l2,$title)=split /\"/;
    printf "start:%s end:%s title:%s\n", $start,$end,$title;
}

__DATA__
<label t="1547.72728247" t1="1815.28584500" title="ThingDoing"/>