Select Code to Download

Select or download this

=?iso-8859-1?Q?Communiqu=E9?=
=?iso-8859-1?Q?Telef=F3nica?=
=?ISO-8859-1?Q?Montre=E1l?=
=?iso-8859-1?Q?Minist=E8re?=

Select or download this

Communique
Telefonica
Montreal
Ministere

Select or download this

    use MIME::Words qw(:all);

    my $rawSub = $head->get( 'subject' );
    
    my $mailSubject = decode_mimewords( $rawSub );

Select or download this

    use MIME::WordDecoder;

...
    my $str = $wd->decode( $rawSub );
    
    print $str, "\n";

Select or download this

    use MIME::WordDecoder;

...
    $wd->collapse( 1 ); # Collapse runs of unknown characters to a sin
+gle unknown
    
    print $wd->decode( $rawSub ), "\n";

Select or download this

    use Date::Manip;
    Date_Init( "ConvTZ=IGNORE", "TZ=GMT" ); # We don't want time conve
+rsions happening. GMailBackup ignores timezone conformance and keeps 
+timestamps as they were
    
    # If using Date::Transform, you can use '%g' that is short for %a,
+ %d %b %Y %H:%M:%S %z - Fri, 28 Apr 1995 17:23:15 EDT; For eg : Sat, 
+9 Feb 2008 17:04:08 -0330
    $mailDate = UnixDate( $mailDate , '%Y_%m_%Q-%H%M%S' ); # 2008_02_2
+0080209-170408