#!/usr/bin/perl -w
use strict;

undef $/;
my $data = <DATA>;
my @munged = ($data) x length $data;
substr $munged[$_], $_, 0, "\n" for 0 .. $#munged;
print @munged;

__END__
cn=Perl Monks,ou=Dining Hall,ou=Monastery,c=Universe