Select Code to Download

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

use String::Unescape;

...
chomp(my $sep = <>);
$sep = String::Unescape->unescape($sep);
say join $sep, @data;