1#!/usr/local/bin/perl
2
3#
4# Make PEM encoded data have lines of 64 bytes of data
5#
6
7while (<>)
8	{
9	if (/^-----BEGIN/ .. /^-----END/)
10		{
11		if (/^-----BEGIN/) { $first=$_; next; }
12		if (/^-----END/) { $last=$_; next; }
13		$out.=$_;
14		}
15	}
16$out =~ s/\s//g;
17$out =~ s/(.{64})/$1\n/g;
18print "$first$out\n$last\n";
19
20
21