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