Select Code to Download

my $data ="2008-Jan-01 00:00:00 UTC (GMT +0000) - Toll: channel = seve
+n, ref = xxx.xxxxxx.xxx.xxxxx.xxxxxxx, tids = 123456789";


...
($throwaway,my $cleantids) = split /\s=\s(.*)/, $tids;

print "$datetime\t$cleanchannel\t$cleanref\t$cleantids\n";

perl 675658-2.pl

---->Variation 1 (Cumbersome coding to be explicit)
...
DATETIME                                Channel Ref                   
+          tids
======================================================================
+========================
2008-Jan-01 00:00:00 UTC (GMT +0000)    seven   xxx.xxxxxx.xxx.xxxxx.x
+xxxxxx    123456789