rfc2text.pl

sub rfc2plain{
    local($now, $count) = @_;
    local($mday, $mon, $year, $hour, $min, $sec) = ($now =~ /[^,]+,\s*(\d+)[- ]+(\w+)[- ]+(\d+)\s+(\d+):(\d+):(\d+)/);

    foreach("Jan","Feb","Mar","Apr","May","Jun"
       ,"Jul","Aug","Sep","Oct","Nov","Dec"){
        $mon = $count ,last if $mon =~ /$_/i;
        $count++;
    }
    $year -= 1900 if $year > 1900;
    sprintf("%4.4d/%2.2d/%2.2d %2.2d:%2.2d:%2.2d",
                $year+1900, $mon + 1, $mday, $hour, $min, $sec);

}