#!perl -w
open(TRACKDATA, "> C:\\myData") or die "can't open data";

open(TRACKLOG, "C:\\myLog,txt") or die "can't open log";

while (<TRACKLOG>) 
{
    
    chomp;
       

    ($email) = /\s(.*@.*)\s/;
    
    print TRACKDATA "$email\n";
    
}