Help for this page

Select Code to Download


  1. or download this
    chomp(my $sep = <>);
    my $sep = eval "qq/$sep/";
    say join $sep, @data;
    
  2. or download this
    use String::Unescape;
    
    ...
    chomp(my $sep = <>);
    $sep = String::Unescape->unescape($sep);
    say join $sep, @data;