This has been moved to doc/i/tutorial/.

#!/usr/bin/perl

$infilename = shift(@ARGV);
#$outfilename = shift(@ARGV);
$outfilename = "temp";
open(IN, $infilename) ||
    die "cannot open $infilename for reading: $!";
open(OUT, ">$outfilename") ||
    die "cannot create $outfilename: $!";
while (<IN>)
{
    s/\t/        /g;
    s/PI_NEWLINE/\\n/g;
    print OUT $_;
}

close(IN);
close(OUT);

rename("temp", $infilename);