#!/usr/bin/env perl 
use strict;
use warnings;
use Encode qw(encode decode);

my $subject = "Room Rush \303\242\302\200\302\223 Enjoy 25% off on your stay. (raw: Room Rush =?utf-8?b?4oCT?= Enjoy 25% off on your stay.)";

my $decoded = decode ("MIME-Header", $subject);
print encode ("UTF-8", $decoded) . "\n";