#!perl -p
s;(30?|9)\K ..;