use String::Unescape;

# ...

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