Should be doable with a source filter, so technically Perl, though "pure" might be a very, very strong word to use with regard to source filters. :-)

Note to OP: no, you don't want to write a source filter.