sub {
    s/00(;..)$/A8$1/;
}