program: p = format_date(raw_field('pubdate'), 'yyyy'); if p then strcat(re(p, '^(...).*', '\1'), '0.', p) fi