mime2txt

   1 #!/usr/bin/env perl
   2
   3 # mime2txt
   4 # File ID: 848c0aa8-5d3f-11df-9938-90e6ba3022ac
   5 # Konverterer tekst i MIME-format til vanlig tekst. Vet ikke hvor korrekt
   6 # den er, men det ser ut til å funke greit.
   7
   8 use strict;
   9 use warnings;
  10
  11 while (<>) {
  12         s/=([0-9a-f]{2})/chr(hex($1))/gei;
  13         s/=\n//;
  14         print;
  15 }