prearmor

   1 #!/usr/bin/env perl
   2
   3 # prearmor
   4 # File ID: 90ae840c-5d42-11df-a554-90e6ba3022ac
   5 # Setter GPG-armor i <p><pre></pre>.
   6
   7 while (<>) {
   8         s/^-----BEGIN PGP MESSAGE-----$/<p><pre>\n-----BEGIN PGP MESSAGE-----/;
   9         s/^-----END PGP MESSAGE-----$/-----END PGP MESSAGE-----\n<\/pre>/;
  10         print;
  11 }