#!/usr/bin/perl

use MIME::Words 'decode_mimewords';
use strict;
use warnings;

my @files = @ARGV;

for my $file (@files) {
  local @ARGV = ($file);
  local $^I = ".bak";
  local $/;

  print scalar decode_mimewords($_) while <>;
}