($stamp,$extra,$orth,$a,...$z) = split(/ <|>;|\t/, $line1);
#splitting all of the information after the first ";" into 2 scalars;
$split = "$a ... $z";
($canon,$spoke) = split(/; /, $split);