m/.(?{ $array[ pos ] = do_smth(); })(*FAIL)/;