chomp(my $sep = <>);
my $sep = eval "qq/$sep/";
say join $sep, @data;