/usr/share/doc/libtext-csv-xs-perl/examples/rewrite.pl is in libtext-csv-xs-perl 1.11-2.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | #!/usr/bin/perl
use strict;
use warnings;
use Text::CSV_XS qw( csv );
my $io = shift || \*DATA;
csv (in => csv (in => $io, sep_char => ";"), out => \*STDOUT);
__END__
a;b;c;d;e;f
1;2;3;4;5;6
2;3;4;5;6;7
3;4;5;6;7;8
4;5;6;7;8;9
|