chomp(my $sep = <>);
say join $sep, @data;

##</code><code>##

chomp(my $sep = <>);
$sep =~ s/\\t/\t/g;
say join $sep, @data;