'TAvi' (-37) -> 'TDMk' (-32)
'TAvi' (-38) -> 'TMrk' (-34)
'TDMk' (-32) -> xfer (-12)
'TDif' (-7) -> xfer (-11)
'TDif' (-8) -> 'TMCF' (-35)
'TDig' (-27) -> 'TSpN' (-33)
'TLCI' (-36) -> 'TAvi' (-37)
'TMCF' (-35) -> 'TLCI' (-36)
'TMrk' (-34) -> xfer (-28)
'TSpN' (-33) -> 'TAvi' (-38)
'TSpN' (-33) -> 'TDMk' (-32)
'TSpN' (-33) -> 'TMCF' (-35)
####
'TDif' (-7) -> xfer (-11)
'TDif' (-8) -> 'TMCF' (-35) -> 'TLCI' (-36) -> 'TAvi' (-37) -> 'TDMk' (-32) -> xfer (-12)
^-----------v-----------------------------------^
'TDig' (-27) -> 'TSpN' (-33) -> 'TAvi' (-38) -> 'TMrk' (-34) -> xfer (-28)
##
##
use warnings;
use strict;
my @lines = ;
my @splitLines = map {[/('....')..([-\d]*)\) -> ('?....'?)..([-\d]*)/]} @lines;
print "$_->[0] ($_->[1]) -> $_->[2] ($_->[3])\n" for @splitLines;