while (<$filehandle>) {
    tr/blah/blah/ if /^\d{16}/; # do the translation
    print;                      # output result
}