use strict;
use warnings;
use DateTime;
use POSIX qw(strftime);
use autodie;

open my $logFH, '<', 'second.txt';

while (<$logFH>) {
	my ( $streamname, $streamid, $timedate ) = split /[@\s]/;
	my $time_t = POSIX::strftime( "%Y-%m-%d %r", localtime($timedate) );

	open my $fh, '>', "$streamid/$streamname";

	print $fh <<END;
<event>
  <stream-id>$streamid</stream-id>
  <event-name>$streamname</event-name>
    <primary-event>
    <delete-time>$time_t</delete-time>
    </primary-event>
</event>
END
}