Select Code to Download

'TAvi' (-37) -> 'TDMk' (-32)
'TAvi' (-38) -> 'TMrk' (-34)
...
'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 @splitLines = map {[/('....')..([-\d]*)\) -> ('?....'?)..([-\d]*)/]
+} @lines;

print "$_->[0] ($_->[1]) -> $_->[2] ($_->[3])\n" for @splitLines;